Update from input by @lierdakil

src/GHCMod.hs

@@ -502,15 +502,15 @@ legacyInteractiveLoop symdbreq world = do
           , GHandler $ \(SomeException e) -> gmErrStrLn (show e) >> return ""
           ]
 
-getFileSourceFromStdin :: IO String
 getFileSourceFromStdin = do
-  let loop' acc = do
+  linesIn <- readStdin'
-        line <- getLine
+  return (intercalate "\n" linesIn)
-        if line == "\EOT"
+  where
-        then return $ intercalate "\n" $ reverse $ ((init line):acc)
+    readStdin' = do
-        else loop' (line:acc)
+      x <- getLine
-  loop' []
+      if x/="\EOT"
-
+        then fmap (x:) readStdin'
+        else return []
 
 -- Someone please already rewrite the cmdline parsing code *weep* :'(
 wrapGhcCommands :: (IOish m, GmOut m) => Options -> [String] -> m ()