Add flush of stdout.

pubber · Feb 17, 2015 · 51fa56e · 51fa56e
1 parent 99e3023
commit 51fa56e
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/examples/haskell/count.hs b/examples/haskell/count.hs
@@ -2,9 +2,11 @@
 
 import Control.Monad (forM_)
 import Control.Concurrent (threadDelay)
+import System.IO (hFlush, stdout)
 
 -- | Count from 1 to 10 with a sleep
 main :: IO ()
 main = forM_ [1 :: Int .. 10] $ \count -> do
   print count
+  hFlush stdout
   threadDelay 500000
diff --git a/examples/haskell/greeter.hs b/examples/haskell/greeter.hs
@@ -1,7 +1,7 @@
 #!/usr/bin/env runhaskell
 
 import Control.Monad (unless)
-import System.IO (stdin, hIsEOF)
+import System.IO (hFlush, stdout, stdin, hIsEOF)
 
 -- | For each line FOO received on STDIN, respond with "Hello FOO!".
 main :: IO ()
@@ -10,4 +10,5 @@ main = do
   unless eof $ do
     line <- getLine
     putStrLn $ "Hello " ++ line ++ "!"
+    hFlush stdout
     main