@@ -55,7 +55,7 @@ runOpenClose tutdSetup' tutdIterate' tCount dbdir' = do
55 eSess <- createSessionAtHead conn "master"
55 eSess <- createSessionAtHead conn "master"
56 case eSess of
56 case eSess of
57 Left err -> error (show err)
57 Left err -> error (show err)
58− Right session -> do
58+ Right session ->
59 --database setup
59 --database setup
60 case parseTutorialD tutdSetup' of
60 case parseTutorialD tutdSetup' of
61 Left err -> error (show err)
61 Left err -> error (show err)
@@ -70,7 +70,7 @@ runOpenClose tutdSetup' tutdIterate' tCount dbdir' = do
70 printFdCount
70 printFdCount
72runTransaction :: T.Text -> SessionId -> Connection -> IO ()
72runTransaction :: T.Text -> SessionId -> Connection -> IO ()
73−runTransaction tutdIterate' sess conn = do
73+runTransaction tutdIterate' sess conn =
74 --run tutd on every iteration
74 --run tutd on every iteration
75 case parseTutorialD tutdIterate' of
75 case parseTutorialD tutdIterate' of
76 Left err -> error (show err)
76 Left err -> error (show err)