From dfacfcecf6bd44aeb7cf92acc8981b7614d0635e Mon Sep 17 00:00:00 2001
From: Felipe Lessa <felipe.lessa@gmail.com>
Date: Mon, 27 Apr 2015 23:55:48 -0300
Subject: [PATCH] Fix test suite compilation for PostgreSQL.

---
 test/Test.hs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/test/Test.hs b/test/Test.hs
index 9d355b0..96979cd 100644
--- 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 $