diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2026-07-25 12:17:48 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2026-07-25 12:17:48 +0200 |
| commit | 480cbcd7749f412a7766416b9cb3694ac4ed0fb7 (patch) | |
| tree | cd955594f7e3ad6ce11e0ae23a946572fb9d5f88 /src/Ghci.hs | |
| parent | 28311c2f54ec585503c0393330fcaed005f70837 (diff) | |
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 |