- : '%data' q_tc_name tv_bndrs '=' '{' cons '}'
- { mkTyData DataType ( noLoc []
- , noLoc (ifaceExtRdrName $2)
- , map toHsTvBndr $3
- , Nothing
- ) Nothing $6 Nothing }
- | '%newtype' q_tc_name tv_bndrs trep
+ : '%data' q_tc_name tv_bndrs '=' '{' cons '}' ';'
+ { TyData { tcdND = DataType, tcdCtxt = noLoc []
+ , tcdLName = noLoc (ifaceExtRdrName $2)
+ , tcdTyVars = map toHsTvBndr $3
+ , tcdTyPats = Nothing, tcdKindSig = Nothing
+ , tcdCons = $6, tcdDerivs = Nothing } }
+ | '%newtype' q_tc_name tv_bndrs trep ';'