diff options
| author | Joachim Breitner <mail@joachim-breitner.de> | 2015-07-15 10:29:26 +0200 |
|---|---|---|
| committer | Joachim Breitner <mail@joachim-breitner.de> | 2015-07-15 10:29:26 +0200 |
| commit | 0a402785c9c5ab4be9487518790d24af9d211a8b (patch) | |
| tree | 8071e126bb547aae457a1436694aac4b33d0a44d /testsuite/tests/th/T10596.hs | |
| parent | 4ee658a02ccc6d3aa0b6a0a5f2f5934a593f1356 (diff) | |
| download | haskell-0a402785c9c5ab4be9487518790d24af9d211a8b.tar.gz | |
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.
Diffstat (limited to 'testsuite/tests/th/T10596.hs')
| -rw-r--r-- | testsuite/tests/th/T10596.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/testsuite/tests/th/T10596.hs b/testsuite/tests/th/T10596.hs index c861156734..35d59e9851 100644 --- a/testsuite/tests/th/T10596.hs +++ b/testsuite/tests/th/T10596.hs @@ -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 [] |