diff --git a/Commands/RunDevServer.hs b/Commands/RunDevServer.hs
index 366e970e4..aa92e29dd 100755
--- 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 { .. }