Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Make test suite compatible with GHC > 6.8.

  • Loading branch information...
commit dabfd790f9a51fa6dacc6ff1a3e85ea29bbe63e3 1 parent 272c593
@beastaugh authored
Showing with 2 additions and 4 deletions.
  1. +1 −2  testsrc/TestSbasics.hs
  2. +1 −2  testsrc/Testbasics.hs
View
3  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"]])
View
3  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"]])
Please sign in to comment.
Something went wrong with that request. Please try again.