Fold template-haskell.git into ghc.git (re #8545)
[ghc.git] / testsuite / tests / th / T4135.hs
1 {-# LANGUAGE TypeFamilies,TemplateHaskell #-}
2 module Bug where
3
4 import Language.Haskell.TH
5 import System.IO
6
7 class C a where
8 type T a
9
10 $(do { ds <- [d|
11 instance C (Maybe a) where
12 type T (Maybe a) = Char
13 |]
14 ; runIO $ do { putStrLn (pprint ds); hFlush stdout }
15 ; return ds })
16