From 2e9e6df8a8671c5119e37c1a717f79d7bfd5c2c7 Mon Sep 17 00:00:00 2001 From: Sibi Prabakaran Date: Thu, 14 Apr 2016 23:51:11 +0530 Subject: [PATCH] capitalize --- cookbook/Handling-Persistence-Exception.md | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/cookbook/Handling-Persistence-Exception.md b/cookbook/Handling-Persistence-Exception.md index 8594689..984ee98 100644 --- a/cookbook/Handling-Persistence-Exception.md +++ b/cookbook/Handling-Persistence-Exception.md @@ -201,14 +201,14 @@ getUsers = selectList [] [] insertJane :: MonadIO m => ReaderT SqlBackend m () insertJane = insert_ $ User 40 -mapliftSqlPersistMPool :: MonadIO m => [SqlPersistM a] -> Pool SqlBackend -> m () -mapliftSqlPersistMPool xs pool = mapM_ (\x -> liftSqlPersistMPool x pool) xs +mapLiftSqlPersistMPool :: MonadIO m => [SqlPersistM a] -> Pool SqlBackend -> m () +mapLiftSqlPersistMPool xs pool = mapM_ (\x -> liftSqlPersistMPool x pool) xs conn = "host=localhost dbname=perm2 user=postgres password=postgres port=5432" postgreSQLTest :: IO () postgreSQLTest = runNoLoggingT $ withPostgresqlPool conn 10 $ - mapliftSqlPersistMPool [transaction1, transaction2] + mapLiftSqlPersistMPool [transaction1, transaction2] transaction1 :: (MonadIO m, MonadCatch m) => ReaderT SqlBackend m () transaction1 = (do