@@ -560,8 +560,8 @@ type UCs = (Int, [UConstraint])
560560
561561data NameType = Bound
562562 | Ref
563− | DCon {tag :: Int, arity :: Int} -- ^ Data constructor
564− | TCon {tag :: Int, arity :: Int} -- ^ Type constructor
563+ | DCon {nt_tag :: Int, nt_arity :: Int} -- ^ Data constructor
564+ | TCon {nt_tag :: Int, nt_arity :: Int} -- ^ Type constructor
565565 deriving (Show, Ord)
566566{-!
567567deriving instance Binary NameType