Make test suite compatible with GHC > 6.8.

beastaugh · Apr 15, 2011 · dabfd79 · dabfd79
1 parent 272c593
commit dabfd79
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 4 deletions.
diff --git a/testsrc/TestSbasics.hs b/testsrc/TestSbasics.hs
@@ -121,8 +121,7 @@ testWithTransaction = dbTestCase (\dbh ->
        sFetchAllRows qrysth >>= (assertEqual "initial commit" [[Just "0"]])
 
        -- Let's try a rollback.
-       try $ withTransaction dbh (\_ -> do sExecuteMany sth rows
-                                           fail "Foo")
+       try $ withTransaction dbh (const $ sExecuteMany sth rows >> fail "Foo") :: IO (Either SomeException a)
        sExecute qrysth []
        sFetchAllRows qrysth >>= (assertEqual "rollback" [[Just "0"]])
 

diff --git a/testsrc/Testbasics.hs b/testsrc/Testbasics.hs
@@ -138,8 +138,7 @@ testWithTransaction = dbTestCase (\dbh ->
        fetchAllRows qrysth >>= (assertEqual "initial commit" [[toSql "0"]])
 
        -- Let's try a rollback.
-       try $ withTransaction dbh (\_ -> do executeMany sth rows
-                                           fail "Foo")
+       try $ withTransaction dbh (const $ executeMany sth rows >> fail "Foo") :: IO (Either SomeException a)
        execute qrysth []
        fetchAllRows qrysth >>= (assertEqual "rollback" [[SqlString "0"]])