[Git][ghc/ghc][wip/T20264] Missing case in tyThingEntityInfo

Simon Peyton Jones pushed to branch wip/T20264 at Glasgow Haskell Compiler / GHC Commits: c7a75ca9 by Simon Peyton Jones at 2025-04-22T22:20:00+01:00 Missing case in tyThingEntityInfo - - - - - 1 changed file: - compiler/GHC/Iface/Ext/Types.hs Changes: ===================================== compiler/GHC/Iface/Ext/Types.hs ===================================== @@ -867,11 +867,13 @@ idEntityInfo vid = S.fromList $ [EntityTypeVariable | isTyVar vid] <> [EntityFun -- | Get the `EntityInfo` for a `TyThing` tyThingEntityInfo :: TyThing -> S.Set EntityInfo tyThingEntityInfo ty = case ty of - AnId vid -> idEntityInfo vid + AnId vid -> idEntityInfo vid + ATyVar {} -> S.singleton EntityTypeVariable AConLike con -> case con of RealDataCon _ -> S.singleton EntityDataConstructor PatSynCon _ -> S.singleton EntityPatternSynonym - ATyCon tyCon -> S.fromList $ [EntityTypeSynonym | isTypeSynonymTyCon tyCon] <> [EntityTypeFamily | isFamilyTyCon tyCon] + ATyCon tyCon -> S.fromList $ [EntityTypeSynonym | isTypeSynonymTyCon tyCon] + <> [EntityTypeFamily | isFamilyTyCon tyCon] <> [EntityTypeClass | isClassTyCon tyCon] <> [EntityTypeConstructor] ACoAxiom _ -> S.empty View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/c7a75ca92dfa4b8bd73d289a8851e8c4... -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/c7a75ca92dfa4b8bd73d289a8851e8c4... You're receiving this email because of your account on gitlab.haskell.org.
participants (1)
-
Simon Peyton Jones (@simonpj)