Merge remote-tracking branch 'origin/fix-loop'

DanielG · Aug 20, 2015 · 797aef2 · 797aef2
2 parents 95426d4 + b7cea06
commit 797aef2
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/Language/Haskell/GhcMod/Output.hs b/Language/Haskell/GhcMod/Output.hs
@@ -129,13 +129,14 @@ stdoutGateway chan = go ("", "")
      case ty of
        GmTerminated ->
            case stream of
-             GmOut -> putStr (obuf++l) >> go ("", ebuf)
-             GmErr -> putStr (ebuf++l) >> go (obuf, "")
+             GmOut -> putStr (obuf++l) >> hFlush stdout >> go ("", ebuf)
+             GmErr -> putStr (ebuf++l) >> hFlush stdout >> go (obuf, "")
        GmPartial -> case reverse $ lines l of
                       [] -> go buf
                       [x] -> go (appendBuf stream buf x)
                       x:xs -> do
                         putStr $ unlines $ reverse xs
+                        hFlush stdout
                         go (appendBuf stream buf x)
 
    appendBuf GmOut (obuf, ebuf) s = (obuf++s, ebuf)