@@ -87,14 +87,13 @@ reprLoop config conn = do
87 discon <- disconnectedTransaction conn
87 discon <- disconnectedTransaction conn
88 graph <- transactionGraph conn
88 graph <- transactionGraph conn
89 maybeLine <- runInputT settings $ getInputLine (T.unpack (promptText discon graph))
89 maybeLine <- runInputT settings $ getInputLine (T.unpack (promptText discon graph))
90− let roloop = reprLoop config conn
91 case maybeLine of
90 case maybeLine of
92 Nothing -> return ()
91 Nothing -> return ()
93 Just line -> do
92 Just line -> do
94 case parseTutorialD conn line of
93 case parseTutorialD conn line of
95 Left err -> do
94 Left err -> do
96 displayOpResult $ DisplayErrorResult (T.pack (show err))
95 displayOpResult $ DisplayErrorResult (T.pack (show err))
98 Right parsed -> do
96 Right parsed -> do
99 evald <- evalTutorialD conn parsed
97 evald <- evalTutorialD conn parsed
100 displayOpResult evald
98 displayOpResult evald