Commit 169a1884 authored by Joachim Breitner's avatar Joachim Breitner
Browse files

Flush stdout after printing in runIO

as the docs of runIO tell me to.
parent eb49cba5
......@@ -3,8 +3,9 @@
module Roles3 where
import Language.Haskell.TH
import System.IO
$( do { decls <- [d| data Foo a (b :: k) c (d :: k)
type role Foo _ _ representational nominal |]
; runIO $ putStrLn (pprint decls)
; runIO $ putStrLn (pprint decls) >> hFlush stdout
; return decls })
......@@ -3,9 +3,10 @@
module Roles4 where
import Language.Haskell.TH
import System.IO
data Sticky a b = MkSticky (a b)
$( do roles <- reifyRoles (mkName "Sticky")
runIO $ putStrLn (show roles)
return [] )
\ No newline at end of file
runIO $ putStrLn (show roles) >> hFlush stdout
return [] )
Markdown is supported
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