capitalize

tchakkazulu · Apr 14, 2016 · 2e9e6df · 2e9e6df
1 parent 1e06e07
commit 2e9e6df
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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