diff options
author | Joachim Breitner <mail@joachim-breitner.de> | 2014-03-21 13:46:15 +0100 |
---|---|---|
committer | Joachim Breitner <mail@joachim-breitner.de> | 2014-03-21 13:48:20 +0100 |
commit | df409de9550dc8a07e010964a54112266d809341 (patch) | |
tree | a887674d553ab184f07a9363de8ef0792fcf3b9e | |
parent | a6939ec29a9238cee38bee20844ae8cdcd4952fd (diff) | |
download | haskell-df409de9550dc8a07e010964a54112266d809341.tar.gz |
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.)
-rw-r--r-- | testsuite/tests/th/T8884.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/testsuite/tests/th/T8884.hs b/testsuite/tests/th/T8884.hs index 782bf90830..ca6ed9c4b1 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 ] )
\ No newline at end of file + , TySynInstD (mkName "Baz'") eqn2 ] ) |