Fix #11287.
[ghc.git] / testsuite / tests / th / T9262.hs
1 {-# LANGUAGE TemplateHaskell #-}
2
3 module T9262 where
4
5 import Language.Haskell.TH
6 import Language.Haskell.TH.Ppr
7 import System.IO
8
9 $(do insts <- reifyInstances ''Eq [ListT `AppT` VarT (mkName "a")]
10 runIO $ putStrLn $ pprint insts
11 runIO $ hFlush stdout
12 return [] )