Fix: drop FROM by mistake

khibino · May 22, 2019 · 097ef4e · 097ef4e
1 parent 28c7afa
commit 097ef4e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/relational-query/src/Database/Relational/Effect.hs b/relational-query/src/Database/Relational/Effect.hs
@@ -118,7 +118,7 @@ sqlWhereFromRestriction config tbl = snd . fromRestriction config tbl
 
 -- | DELETE statement with WHERE clause 'StringSQL' string from 'Restrict' computation.
 deleteFromRestriction :: PersistableWidth p => Config -> Table r -> (Record Flat r -> ReadPlaceholders p Restrict ()) -> SQLWithPlaceholderOffsets'
-deleteFromRestriction config tbl rs = (\t r ->  DELETE <> t <> r) <$> twp <*> rwp
+deleteFromRestriction config tbl rs = (\t r ->  DELETE <> FROM <> t <> r) <$> twp <*> rwp
   where (twp, rwp) = fromRestriction config tbl rs
 
 -- | Show WHERE clause.