@@ -156,6 +156,8 @@ connect :: ConnectInfo -> IO Connection
156connect = connectPostgreSQL . postgreSQLConnectionString
156connect = connectPostgreSQL . postgreSQLConnectionString
158-- | Memory bracket around 'connect' and 'close'.
158-- | Memory bracket around 'connect' and 'close'.
159withConnect :: ConnectInfo -> (Connection -> IO c) -> IO c
161withConnect :: ConnectInfo -> (Connection -> IO c) -> IO c
160withConnect connInfo = bracket (connect connInfo) close
162withConnect connInfo = bracket (connect connInfo) close