@@ -365,7 +365,7 @@ data TutorialDOperatorResult = QuitResult |
365365 DisplayResult String |
366366 DisplayErrorResult String |
367367 QuietSuccessResult |
368− NoActionResult
368+ NoActionResult --refactor to make this dead- there should be only one parser
369369
370370evalContextOp :: DatabaseContext -> ContextOperator -> TutorialDOperatorResult
371371evalContextOp context (ShowRelationType expr) = case runState (typeForRelationalExpr expr) context of
@@ -395,7 +395,7 @@ evalGraphOp :: U.UUID -> DisconnectedTransaction -> TransactionGraph -> GraphOpe
395395--affects only disconncted transaction
396396evalGraphOp newUUID trans graph (JumpToTransaction jumpUUID) = case transactionForUUID jumpUUID graph of
397397 Left err -> Left err
398− Right parentTrans -> Right (newTrans, graph, QuietSuccessResult)
398+ Right parentTrans -> Right (newTrans, graph, NoActionResult)
399399 where
400400 newTrans = DisconnectedTransaction jumpUUID (transactionContext parentTrans)
401401
@@ -440,7 +440,6 @@ evalGraphOp newTransUUID discon@(DisconnectedTransaction parentUUID context) gra
440440 Right (_, updatedGraph) -> Right (newDisconnectedTrans, updatedGraph, QuietSuccessResult)
441441 where
442442 newDisconnectedTrans = newDisconnectedTransaction newTransUUID context
443− --parentTransaction = transactionForUUID parentUUID graph
444443 maybeUpdatedGraph = addDisconnectedTransaction newTransUUID headName discon graph
445444
446445-- refresh the disconnected transaction, return the same graph
@@ -498,6 +497,9 @@ reprLoop currentTransaction@(DisconnectedTransaction currentParentUUID currentCo
498497 (updatedTrans, updatedGraph, DisplayResult out) -> do
499498 putStrLn out
500499 reprLoop updatedTrans updatedGraph
500+ (updatedTrans, updatedGraph, QuietSuccessResult) -> do
501+ putStrLn "Done."
502+ reprLoop updatedTrans updatedGraph
501503 (_, _, NoActionResult) -> do
502504 let (value, contextup) = interpret currentContext line
503505 let updatedTransaction = DisconnectedTransaction currentParentUUID contextup