Merge pull request #695 from kosmikus/fix-where-without-from

Fix building queries with WHERE in the absence of FROM.
haskell-beam · Oct 9, 2024 · b5205ec · b5205ec
2 parents 9717dd5 + e48f586
commit b5205ec
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/beam-core/Database/Beam/Query/SQL92.hs b/beam-core/Database/Beam/Query/SQL92.hs
@@ -224,7 +224,7 @@ buildSql92Query' arbitrarilyNestedCombinations baseTblPfx (Q q) =
                -> Free (QF be db s) x
                -> SelectBuilder be db x
     buildQuery _ (Pure x) = SelectBuilderQ x emptyQb
-    buildQuery tblPfx (Free (QGuard _ next)) = buildQuery tblPfx next
+    buildQuery tblPfx f@(Free (QGuard _ _)) = buildJoinedQuery tblPfx f emptyQb
     buildQuery tblPfx f@(Free QAll {}) = buildJoinedQuery tblPfx f emptyQb
     buildQuery tblPfx f@(Free QArbitraryJoin {}) = buildJoinedQuery tblPfx f emptyQb
     buildQuery tblPfx f@(Free QTwoWayJoin {}) = buildJoinedQuery tblPfx f emptyQb