Imrpvoed ghci comfig

digitallyinduced · Mar 1, 2020 · d619662 · d619662
1 parent 5211c0b
commit d619662
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Commands/RunDevServer.hs b/Commands/RunDevServer.hs
@@ -182,7 +182,7 @@ cleanup state = do
 
 startPlainGhci :: IO ManagedProcess
 startPlainGhci = do
-    let process = (Process.proc "ghci" ["-threaded", "-fexternal-interpreter", "-fomit-interface-pragmas", "-j", "-O0", "+RTS", "-A512m", "-n4m", "-H512m", "-G3"]) { Process.std_in = Process.CreatePipe, Process.std_out = Process.CreatePipe, Process.std_err = Process.CreatePipe }
+    let process = (Process.proc "ghci" ["-threaded", "-fexternal-interpreter", "-fomit-interface-pragmas", "-j", "-O0", "+RTS", "-A512m", "-n4m", "-H512m", "-G3", "-qg"]) { Process.std_in = Process.CreatePipe, Process.std_out = Process.CreatePipe, Process.std_err = Process.CreatePipe }
     (Just inputHandle, Just outputHandle, Just errorHandle, processHandle) <- Process.createProcess process
     errorLog <- Just <$> newIORef ""
     return ManagedProcess { .. }