More logging

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