From dd557059a4388435e7033da87ae21ec15efbdb15 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Tue, 14 Feb 2023 20:59:37 +0100
Subject: Long ghc diagnostics are long, need to read them whole

---
 src/Ghci.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Ghci.hs b/src/Ghci.hs
index 953bf72..d339d74 100644
--- a/src/Ghci.hs
+++ b/src/Ghci.hs
@@ -158,7 +158,7 @@ runStmt' ghci pset stmt = do
   tag <- updatePrompt ghci
   ghciPutStrLn (ghciStdin ghci) stmt
   hFlush (ghciStdin ghci)
-  let readmax = psMaxOutputLen pset + 200
+  let readmax = psMaxOutputLen pset + 8192
   (output, reason) <- hGetUntilUTF8 (ghciStdout ghci) (Just readmax) tag
   case reason of
     ReachedMaxLen -> do
-- 
cgit v1.2.3-70-g09d2