@@ -25,7 +25,7 @@ spec = do
2525 statement :: Statement '[] SumAndCol1 Tables Tables
2626 statement = select $
2727 ((#col1 + #col2) `As` #sum :* #col1 :* Nil)
28− `from` (#table1 & where_ ((#col1 :: Expression '[] Tables ('Required ('NotNull 'PGInt4)))>* #col2))
28+ `from` (#table1 & where_ ((#col1 :: Expression '[] Tables ('Required ('NotNull 'PGInt4))) >* #col2))
2929 statement `shouldRenderAs`
3030 "SELECT (col1 + col2) AS sum, col1 AS col1 FROM table1 AS table1 WHERE (col1 > col2);"
3131 it "combines WHEREs using AND" $ do
@@ -93,7 +93,7 @@ spec = do
9393 it "correctly renders DELETEs" $ do
9494 let
9595 statement :: Statement '[] '[] Tables Tables
96− statement = delete #table1 ((#col1 :: Expression '[] Tables ('Required ('NotNull 'PGInt4))) ==* #col2)
96+ statement = deleteFrom #table1 ((#col1 :: Expression '[] Tables ('Required ('NotNull 'PGInt4))) ==* #col2)
9797 statement `shouldRenderAs`
9898 "DELETE FROM table1 WHERE (col1 = col2);"
9999 it "should be safe against SQL injection in literal text" $ do