diff options
Diffstat (limited to 'testsuite/tests/th/TH_Roles3.hs')
| -rw-r--r-- | testsuite/tests/th/TH_Roles3.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/testsuite/tests/th/TH_Roles3.hs b/testsuite/tests/th/TH_Roles3.hs index 355b1e595a..e42394eb02 100644 --- a/testsuite/tests/th/TH_Roles3.hs +++ b/testsuite/tests/th/TH_Roles3.hs @@ -4,6 +4,7 @@ module Roles3 where import Language.Haskell.TH -$( do { decls <- [d| data Foo a (b :: k) c@R (d :: k)@N |] - ; reportWarning (pprint decls) +$( do { decls <- [d| data Foo a (b :: k) c (d :: k) + type role Foo _ _ representational nominal |] + ; runIO $ putStrLn (pprint decls) ; return decls }) |