Fix #11287.
[ghc.git] / testsuite / tests / th / T5217.hs
1 {-# LANGUAGE GADTs #-}
2
3 module T5217 where
4 import Language.Haskell.TH
5
6 $([d| data T a b where { T1 :: Int -> T Int Char
7 ; T2 :: a -> T a a
8 ; T3 :: a -> T [a] a
9 ; T4 :: a -> b -> T b [a] } |])