listTyCon_name = getName listTyCon
parrTyCon_name = getName parrTyCon
hetMetCodeTypeTyCon_name :: Name
-hetMetCodeTypeTyCon_name = getName hetMetCodeTypeTyCon
+hetMetCodeTypeTyCon_name = getName hetMetCodeTypeTyCon
tupleTyCon_name :: Boxity -> Int -> Name
tupleTyCon_name boxity n = getName (tupleTyCon boxity n)
get (HsAppTy ty1 ty2) = getl ty1 `unionNameSets` getl ty2
get (HsListTy ty) = unitNameSet listTyCon_name `unionNameSets` getl ty
get (HsPArrTy ty) = unitNameSet parrTyCon_name `unionNameSets` getl ty
- get (HsModalBoxType ecn ty) = (unitNameSet ecn) `unionNameSets` (unitNameSet hetMetCodeTypeTyCon_name) `unionNameSets` (getl ty)
+ get (HsModalBoxType ecn ty) = (unitNameSet ecn)
+ `unionNameSets`
+ (unitNameSet hetMetCodeTypeTyCon_name)
+ `unionNameSets`
+ (getl ty)
+ get (HsKappaTy ty1 ty2) = getl ty1 `unionNameSets` getl ty2
get (HsTupleTy _ tys) = extractHsTyNames_s tys
get (HsFunTy ty1 ty2) = getl ty1 `unionNameSets` getl ty2
get (HsPredTy p) = extractHsPredTyNames p