Fix #11287.
[ghc.git] / testsuite / tests / th / T9692.hs
1 {-# LANGUAGE TemplateHaskell, TypeFamilies, PolyKinds #-}
2
3 module T9692 where
4
5 import Language.Haskell.TH
6 import Language.Haskell.TH.Syntax
7 import Language.Haskell.TH.Ppr
8 import System.IO
9
10 class C a where
11 data F a (b :: k) :: *
12
13 instance C Int where
14 data F Int x = FInt x
15
16 $( do info <- qReify (mkName "F")
17 runIO $ putStrLn $ pprint info
18 runIO $ hFlush stdout
19 return [])