Commit c0a1ba4f authored by simonpj's avatar simonpj
Browse files

[project @ 2005-02-07 10:19:16 by simonpj]

Flush output in runIO
parent d87dd691
......@@ -5,6 +5,7 @@ module Main
where
import Language.Haskell.TH
import System.IO
$(
do ds <- [d|
......@@ -13,7 +14,7 @@ $(
| x == 5 = 6
foo x = 7
|]
runIO $ putStrLn $ pprint ds
runIO $ do { putStrLn (pprint ds); hFlush stdout }
return ds
)
......@@ -24,7 +25,7 @@ $(
| Just y <- x = y
bar _ = 9
|]
runIO $ putStrLn $ pprint ds
runIO $ do { putStrLn (pprint ds) ; hFlush stdout }
return ds
)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment