Fix test suite compilation for PostgreSQL.

2015-04-27 23:55:48 -03:00 · 2015-04-27 23:55:48 -03:00 · dfacfcecf6
commit dfacfcecf6
parent c8ee46f702
1 changed files with 5 additions and 4 deletions
--- a/test/Test.hs
+++ b/test/Test.hs
@ -836,10 +836,11 @@ main = do
 #if defined(WITH_POSTGRESQL) || defined(WITH_MYSQL)
      it "works on PostgreSQL and MySQL with <2 arguments" $
        run $ do
-          _ :: [Value (Maybe Int)] <- select $
-               from $ \p -> do
-               return (coalesce [p ^. PersonAge])
-          return True
+          _ :: [Value (Maybe Int)] <-
+            select $
+            from $ \p -> do
+            return (coalesce [p ^. PersonAge])
+          return ()
 #else
      it "throws an exception on SQLite with <2 arguments" $
        run (select $