Commits

Bryan O'Sullivan  committed e87ecb2

Fix a compilation warning

  • Participants
  • Parent commits 2108648

Comments (0)

Files changed (1)

File Database/MySQL/Simple.hs

 -- 'Base.rollback', then the exception will be rethrown.
 withTransaction :: Connection -> IO a -> IO a
 withTransaction conn act = do
-  execute_ conn "start transaction"
+  _ <- execute_ conn "start transaction"
   r <- act `onException` Base.rollback conn
   Base.commit conn
   return r