Add comment

tchakkazulu · Apr 14, 2016 · 1e06e07 · 1e06e07
1 parent 7026baa
commit 1e06e07
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/cookbook/Handling-Persistence-Exception.md b/cookbook/Handling-Persistence-Exception.md
@@ -135,7 +135,7 @@ postgreSQLTest = runNoLoggingT $ withPostgresqlPool conn 10 $ liftSqlPersistMPoo
                    liftIO $ print "Going to insert jane twice"
 
                    insertJane
-                   insertJane
+                   insertJane -- This should cause exception 
 
                    users <- getUsers
                    liftIO $ print users
@@ -214,7 +214,7 @@ transaction1 :: (MonadIO m, MonadCatch m) => ReaderT SqlBackend m ()
 transaction1 = (do
   liftIO $ print "Inside transaction 1"
   insertJane
-  insertJane
+  insertJane -- This should cause exception 
   liftIO $ print "This should not be printed (transaction 1)"
   u <- getUsers
   liftIO $ print u