Commit 0a402785 authored by Joachim Breitner's avatar Joachim Breitner

Flush stdout in test case for #10596

which might help, as it has helped with lots of other TH-related test
cases in the past.
parent 4ee658a0
......@@ -2,10 +2,13 @@
module T10596 where
import Language.Haskell.TH
import Language.Haskell.TH.Syntax
import System.IO
do
putQ (100 :: Int)
x <- (getQ :: Q (Maybe Int))
-- It should print "Just 100"
runIO $ print x
runIO $ 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