diff options
Diffstat (limited to 'testsuite/tests/th/T17688b.hs')
-rw-r--r-- | testsuite/tests/th/T17688b.hs | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/testsuite/tests/th/T17688b.hs b/testsuite/tests/th/T17688b.hs new file mode 100644 index 0000000000..f78cf0266a --- /dev/null +++ b/testsuite/tests/th/T17688b.hs @@ -0,0 +1,15 @@ +{-# LANGUAGE PolyKinds #-} +{-# LANGUAGE RankNTypes #-} +{-# LANGUAGE StandaloneKindSignatures #-} +{-# LANGUAGE TemplateHaskell #-} +{-# LANGUAGE TypeFamilies #-} +module T17688b where + +import Data.Kind +import Language.Haskell.TH hiding (Type) +import System.IO + +$(do decs <- [d| type T :: forall (a :: Type) -> (a ~ a) => Type + data T x |] + runIO $ hPutStrLn stderr $ pprint decs + return [] ) |