[commit: ghc] master: Flush stdout in test case for #10596 (0a40278)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/0a402785c9c5ab4be9487518790d24af9d211a8b/ghc

>---------------------------------------------------------------

commit 0a402785c9c5ab4be9487518790d24af9d211a8b
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Wed Jul 15 10:29:26 2015 +0200

    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.


>---------------------------------------------------------------

0a402785c9c5ab4be9487518790d24af9d211a8b
 testsuite/tests/th/T10596.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/testsuite/tests/th/T10596.hs b/testsuite/tests/th/T10596.hs
index c861156..35d59e9 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 []