diff options
author | Tom Smeding <tom@tomsmeding.com> | 2023-09-12 11:57:54 +0200 |
---|---|---|
committer | Tom Smeding <tom@tomsmeding.com> | 2023-09-12 11:57:54 +0200 |
commit | e7a3680052a9b3ef206af4cd934b6a0d61ffb7ad (patch) | |
tree | 9abbc53c8af4beb51386c89b21463ff13b6670e1 /src/Ghci.hs | |
parent | b8ccd25b6917a720c0b68479c976f18bc324922d (diff) |
Separate reply message for :q
Diffstat (limited to 'src/Ghci.hs')
-rw-r--r-- | src/Ghci.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Ghci.hs b/src/Ghci.hs index ae44881..85081c5 100644 --- a/src/Ghci.hs +++ b/src/Ghci.hs @@ -61,7 +61,7 @@ parseSettingsReply = ParseSettings 200 True parseSettingsPaste :: ParseSettings parseSettingsPaste = ParseSettings 50000 False -data Result a = Error String | Ignored | Return a +data Result a = Error String | Ignored | Return a | Exited deriving (Show) makeGhci :: IO Ghci @@ -95,7 +95,7 @@ runStmtClever ghci pset line = putStrLn "ghci: restarting due to :quit" hFlush stdout ghci' <- makeGhci - return (ghci', Return "") + return (ghci', Exited) _ -> runStmt ghci pset line _ -> runStmt ghci pset line where |