From 480cbcd7749f412a7766416b9cb3694ac4ed0fb7 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Sat, 25 Jul 2026 11:17:48 +0100 Subject: Remove debug print --- src/Ghci.hs | 1 - 1 file changed, 1 deletion(-) 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 -- cgit v1.3.1