diff options
Diffstat (limited to 'src/Ghci.hs')
| -rw-r--r-- | src/Ghci.hs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/src/Ghci.hs b/src/Ghci.hs index 7f06f99..04b3f4a 100644 --- a/src/Ghci.hs +++ b/src/Ghci.hs @@ -166,7 +166,6 @@ runStmt' ghci pset stmt = do hFlush (ghciStdin ghci) let readmax = psMaxOutputLen pset + 8192 (output, reason) <- hGetUntilUTF8 (ghciStdout ghci) (Just readmax) tag - hPutStrLn stderr $ "runStmt': reason = " ++ show reason case reason of ReachedMaxLen -> do terminateGhci ghci -- because we lost the new prompt |