diff --git a/HDBC-session/src/Database/HDBC/Session.hs b/HDBC-session/src/Database/HDBC/Session.hs index 90bdb5d4..f157c1cb 100644 --- a/HDBC-session/src/Database/HDBC/Session.hs +++ b/HDBC-session/src/Database/HDBC/Session.hs @@ -82,6 +82,7 @@ withConnectionIO = withConnection bracket id -- | Same as 'withConnectionIO' other than issuing commit at the end of transaction body. -- In other words, the transaction with no exception is committed. +-- Handy defintion for simple transactions. withConnectionCommit :: IConnection conn => IO conn -- ^ Connect action -> (conn -> IO a) -- ^ Transaction body