flattenHsForAllTyKeepAnns :: HsType name -> ([AddAnn],HsType name)
flattenHsForAllTyKeepAnns (HsForAllTy exp extra tvs (L l []) ty)
  = mk_forall_ty [] l exp extra tvs ty
flattenHsForAllTyKeepAnns :: HsType name -> ([AddAnn],HsType name)
flattenHsForAllTyKeepAnns (HsForAllTy exp extra tvs (L l []) ty)
  = mk_forall_ty [] l exp extra tvs ty
flattenHsForAllTyKeepAnns (HsForAllTy exp extra tvs (L l []) ty)
  = mk_forall_ty [] l exp extra tvs ty