Fix #11287.
[ghc.git] / testsuite / tests / th / TH_Roles2.hs
index fc010df..3f7b535 100644 (file)
@@ -4,5 +4,7 @@ module TH_Roles2 where
 
 import Language.Haskell.TH
 
-$( return [DataD [] (mkName "T") [KindedRoledTV (mkName "a") (VarT (mkName "k")) Representational] [] []] )
+$( return [ DataD [] (mkName "T") [KindedTV (mkName "a") (VarT (mkName "k"))]
+            Nothing [] []
+          , RoleAnnotD (mkName "T") [RepresentationalR] ] )