@@ -55,7 +55,7 @@ runOpenClose tutdSetup' tutdIterate' tCount dbdir' = do
5555 eSess <- createSessionAtHead conn "master"
5656 case eSess of
5757 Left err -> error (show err)
58− Right session -> do
58+ Right session ->
5959 --database setup
6060 case parseTutorialD tutdSetup' of
6161 Left err -> error (show err)
@@ -70,7 +70,7 @@ runOpenClose tutdSetup' tutdIterate' tCount dbdir' = do
7070 printFdCount
7171
7272runTransaction :: T.Text -> SessionId -> Connection -> IO ()
73−runTransaction tutdIterate' sess conn = do
73+runTransaction tutdIterate' sess conn =
7474 --run tutd on every iteration
7575 case parseTutorialD tutdIterate' of
7676 Left err -> error (show err)