diff options
-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 ] ) |