blob: e6a0df0c5217aebe239f3e93d6fd4d81f00b019e (
plain)
1
2
3
4
5
6
7
8
9
10
|
{-# LANGUAGE TemplateHaskell, RoleAnnotations, PolyKinds #-}
module TH_Roles2 where
import Language.Haskell.TH
$( return [ DataD [] (mkName "T") [KindedTV (mkName "a") () (VarT (mkName "k"))]
Nothing [] []
, RoleAnnotD (mkName "T") [RepresentationalR] ] )
|