@@ -87,14 +87,13 @@ reprLoop config conn = do
8787 discon <- disconnectedTransaction conn
8888 graph <- transactionGraph conn
8989 maybeLine <- runInputT settings $ getInputLine (T.unpack (promptText discon graph))
90− let roloop = reprLoop config conn
9190 case maybeLine of
9291 Nothing -> return ()
9392 Just line -> do
9493 case parseTutorialD conn line of
9594 Left err -> do
9695 displayOpResult $ DisplayErrorResult (T.pack (show err))
97− roloop
9896 Right parsed -> do
9997 evald <- evalTutorialD conn parsed
10098 displayOpResult evald
99+ reprLoop config conn