[commit: ghc] ghc-7.10: Flush stdout in test case for #10596 (5185b78)

[git at git.haskell.org]

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

On branch  : ghc-7.10
Link       : http://ghc.haskell.org/trac/ghc/changeset/5185b78abf2b3c1b3d11a3f508a34781badf9051/ghc

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

commit 5185b78abf2b3c1b3d11a3f508a34781badf9051
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.


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

5185b78abf2b3c1b3d11a3f508a34781badf9051
 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 []