diff options
| author | Richard Eisenberg <eir@cis.upenn.edu> | 2014-10-20 15:11:59 -0400 |
|---|---|---|
| committer | Richard Eisenberg <eir@cis.upenn.edu> | 2014-10-21 09:20:44 -0400 |
| commit | f681c3274c4481ab549508fa346892023bf9d9bb (patch) | |
| tree | d9b1d870e8d4e1f0343028e42859fca28b907713 /testsuite/tests/th/T9692.hs | |
| parent | 07a99c163af2ea5346e94e416d00d50f09f4b7f7 (diff) | |
| download | haskell-f681c3274c4481ab549508fa346892023bf9d9bb.tar.gz | |
Test #9692 in th/T9692
Diffstat (limited to 'testsuite/tests/th/T9692.hs')
| -rw-r--r-- | testsuite/tests/th/T9692.hs | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/testsuite/tests/th/T9692.hs b/testsuite/tests/th/T9692.hs new file mode 100644 index 0000000000..82e5951b61 --- /dev/null +++ b/testsuite/tests/th/T9692.hs @@ -0,0 +1,17 @@ +{-# LANGUAGE TemplateHaskell, TypeFamilies, PolyKinds #-} + +module T9692 where + +import Language.Haskell.TH +import Language.Haskell.TH.Syntax +import Language.Haskell.TH.Ppr + +class C a where + data F a (b :: k) :: * + +instance C Int where + data F Int x = FInt x + +$( do info <- qReify (mkName "F") + runIO $ putStrLn $ pprint info + return []) |