@@ -17,6 +17,7 @@ module Database.PostgreSQL.Simple.Transaction
1717 , withTransactionLevel
1818 , withTransactionMode
1919 , withTransactionModeRetry
20+ , withTransactionModeRetry'
2021 , withTransactionSerializable
2122 , TransactionMode(..)
2223 , IsolationLevel(..)
@@ -147,7 +148,7 @@ withTransactionMode mode conn act =
147148 return r
148149
149150-- | 'withTransactionModeRetry'' but with the exception type pinned to 'SqlError'.
150−withTransactionModeRetry :: forall a. TransactionMode -> (SqlError -> Bool) -> Connection -> IO a -> IO a
151+withTransactionModeRetry :: TransactionMode -> (SqlError -> Bool) -> Connection -> IO a -> IO a
151152withTransactionModeRetry = withTransactionModeRetry'
152153
153154-- | Like 'withTransactionMode', but also takes a custom callback to