diff options
author | Matthew Pickering <matthewtpickering@gmail.com> | 2022-11-30 11:48:08 +0000 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2023-01-26 12:34:56 -0500 |
commit | f2a0fea09a88693d876fb891ea7c8c97373c4aa6 (patch) | |
tree | 8e79c58760205cfad8ea4c1a7adc5d5800d9c05b | |
parent | 3d004d5a961fbbbe11da1050b725468a970bee4b (diff) | |
download | haskell-f2a0fea09a88693d876fb891ea7c8c97373c4aa6.tar.gz |
Strict fields in ModNodeKey (otherwise retains HomeModInfo)
Towards #22530
-rw-r--r-- | compiler/GHC/Unit/Module/Graph.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Unit/Module/Graph.hs b/compiler/GHC/Unit/Module/Graph.hs index 1c273e4d32..aa700b4b2d 100644 --- a/compiler/GHC/Unit/Module/Graph.hs +++ b/compiler/GHC/Unit/Module/Graph.hs @@ -134,8 +134,8 @@ nodeKeyModName :: NodeKey -> Maybe ModuleName nodeKeyModName (NodeKey_Module mk) = Just (gwib_mod $ mnkModuleName mk) nodeKeyModName _ = Nothing -data ModNodeKeyWithUid = ModNodeKeyWithUid { mnkModuleName :: ModuleNameWithIsBoot - , mnkUnitId :: UnitId } deriving (Eq, Ord) +data ModNodeKeyWithUid = ModNodeKeyWithUid { mnkModuleName :: !ModuleNameWithIsBoot + , mnkUnitId :: !UnitId } deriving (Eq, Ord) instance Outputable ModNodeKeyWithUid where ppr (ModNodeKeyWithUid mnwib uid) = ppr uid <> colon <> ppr mnwib |