diff --git a/.github/workflows/haskell.yml b/.github/workflows/haskell.yml index fd8412d..cd08520 100644 --- a/.github/workflows/haskell.yml +++ b/.github/workflows/haskell.yml @@ -69,7 +69,7 @@ jobs: key: ${{ runner.os }}-${{ matrix.ghc }}-${{ hashFiles('cabal.project.freeze') }} restore-keys: | ${{ runner.os }}-${{ matrix.ghc }}- - - run: cabal v2-build --disable-optimizations -j $CONFIG - - run: cabal v2-test --disable-optimizations -j $CONFIG + - run: cabal v2-build --disable-optimization -j $CONFIG + - run: cabal v2-test --disable-optimization -j $CONFIG - run: cabal v2-haddock -j $CONFIG - run: cabal v2-sdist diff --git a/src/Database/Esqueleto/Experimental.hs b/src/Database/Esqueleto/Experimental.hs index 71863cd..d2e3f26 100644 --- a/src/Database/Esqueleto/Experimental.hs +++ b/src/Database/Esqueleto/Experimental.hs @@ -895,13 +895,17 @@ instance ( ToFrom a ) => ToLeftJoin NotLateral a b (a' :& mb) where toLeftJoin _ lhs rhs on' = LeftJoinFrom (toFrom lhs) (toFrom rhs, on') -instance ( ToLeftJoin (IsLateral b) a b b' - ) => ToFrom (LeftOuterJoin a (b, b' -> SqlExpr (Value Bool))) where - toFrom (LeftOuterJoin lhs (rhs, on')) = - let - toProxy :: b -> Proxy (IsLateral b) +instance + ( ToLeftJoin (IsLateral b) a b b' + ) + => + ToFrom (LeftOuterJoin a (b, b' -> SqlExpr (Value Bool))) + where + toFrom (LeftOuterJoin lhs (rhs, on')) = + let toProxy :: b -> Proxy (IsLateral b) toProxy _ = Proxy - in toLeftJoin (toProxy rhs) lhs rhs on' + in + toLeftJoin (toProxy rhs) lhs rhs on' instance ( ToFrom a