haskell/esqueleto
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

sigh

Browse Source
This commit is contained in:
parsonsmatt 2020-10-29 16:13:56 -06:00
parent 9ad56e7de2
commit 14716a5191
2 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
.github/workflows/haskell.yml vendored
View File

@ -69,7 +69,7 @@ jobs:
key: ${{ runner.os }}-${{ matrix.ghc }}-${{ hashFiles('cabal.project.freeze') }} key: ${{ runner.os }}-${{ matrix.ghc }}-${{ hashFiles('cabal.project.freeze') }}
restore-keys: | restore-keys: |
${{ runner.os }}-${{ matrix.ghc }}- ${{ runner.os }}-${{ matrix.ghc }}-
- run: cabal v2-build --disable-optimizations -j $CONFIG - run: cabal v2-build --disable-optimization -j $CONFIG
- run: cabal v2-test --disable-optimizations -j $CONFIG - run: cabal v2-test --disable-optimization -j $CONFIG
- run: cabal v2-haddock -j $CONFIG - run: cabal v2-haddock -j $CONFIG
- run: cabal v2-sdist - run: cabal v2-sdist

16
src/Database/Esqueleto/Experimental.hs
View File

@ -895,13 +895,17 @@ instance ( ToFrom a
) => ToLeftJoin NotLateral a b (a' :& mb) where ) => ToLeftJoin NotLateral a b (a' :& mb) where
toLeftJoin _ lhs rhs on' = LeftJoinFrom (toFrom lhs) (toFrom rhs, on') toLeftJoin _ lhs rhs on' = LeftJoinFrom (toFrom lhs) (toFrom rhs, on')
instance ( ToLeftJoin (IsLateral b) a b b' instance
) => ToFrom (LeftOuterJoin a (b, b' -> SqlExpr (Value Bool))) where ( ToLeftJoin (IsLateral b) a b b'
toFrom (LeftOuterJoin lhs (rhs, on')) = )
let =>
toProxy :: b -> Proxy (IsLateral b) ToFrom (LeftOuterJoin a (b, b' -> SqlExpr (Value Bool)))
where
toFrom (LeftOuterJoin lhs (rhs, on')) =
let toProxy :: b -> Proxy (IsLateral b)
toProxy _ = Proxy toProxy _ = Proxy
in toLeftJoin (toProxy rhs) lhs rhs on' in
toLeftJoin (toProxy rhs) lhs rhs on'
instance instance
( ToFrom a ( ToFrom a