aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Ghci.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Ghci.hs b/src/Ghci.hs
index fbbaa65..13eb4ca 100644
--- a/src/Ghci.hs
+++ b/src/Ghci.hs
@@ -62,6 +62,7 @@ runStmtClever ghci line =
| "def" `startsWith` cmd -> return (ghci, Ignored)
| "quit" `startsWith` cmd -> do
terminateGhci ghci
+ putStrLn "ghci: restarting due to :quit"
ghci' <- makeGhci
return (ghci', Return "")
_ -> runStmt ghci line
@@ -78,11 +79,13 @@ restarting numExcRestarts f ghci = do
closed <- hIsClosed (ghciStdin ghci)
ghci' <- if closed
then do
+ putStrLn "ghci: restarting due to closed stdin"
terminateGhci ghci
makeGhci
else return ghci
(f ghci' >>= \x -> return (ghci', Return x))
`catch` (\e -> do let _ = e :: SomeException
+ putStrLn $ "ghci: restarting due to exception: " ++ show e
terminateGhci ghci'
ghci'' <- makeGhci
if numExcRestarts >= 1