[commit: ghc] ghc-7.8: Flush after TH in #8884 test case (7f5d1f5)

[git at git.haskell.org]

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

On branch  : ghc-7.8
Link       : http://ghc.haskell.org/trac/ghc/changeset/7f5d1f52f84cf18a53d6f256ab828df6c005163a/ghc

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

commit 7f5d1f52f84cf18a53d6f256ab828df6c005163a
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Fri Mar 21 13:46:15 2014 +0100

    Flush after TH in #8884 test case
    
    (I recall that this was needed in some cases in the past, and might fix
    the validate error on travis.)
    
    (cherry picked from commit df409de9550dc8a07e010964a54112266d809341)


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

7f5d1f52f84cf18a53d6f256ab828df6c005163a
 testsuite/tests/th/T8884.hs |    2 ++
 1 file changed, 2 insertions(+)

diff --git a/testsuite/tests/th/T8884.hs b/testsuite/tests/th/T8884.hs
index 782bf90..ca6ed9c 100644
--- a/testsuite/tests/th/T8884.hs
+++ b/testsuite/tests/th/T8884.hs
@@ -3,6 +3,7 @@
 module T8884 where
 
 import Language.Haskell.TH
+import System.IO
 
 type family Foo a where
   Foo x = x
@@ -16,6 +17,7 @@ $( do FamilyI foo@(ClosedTypeFamilyD _ tvbs1 m_kind1 eqns1) [] <- reify ''Foo
       runIO $ putStrLn $ pprint foo
       runIO $ putStrLn $ pprint baz
       runIO $ putStrLn $ pprint inst
+      runIO $ hFlush stdout
       return [ ClosedTypeFamilyD (mkName "Foo'") tvbs1 m_kind1 eqns1
              , FamilyD TypeFam (mkName "Baz'") tvbs2 m_kind2
              , TySynInstD (mkName "Baz'") eqn2 ] )