diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2022-11-30 11:48:08 +0000 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2023-01-25 16:05:38 +0000 |
| commit | 44c95dc55cbab0fee99b14ebf988e08a4fb5a18d (patch) | |
| tree | fe4e1c42228a39edfbc1fc80d532683a9c50bf41 | |
| parent | f9f413bd526185e72807eb228a87edbaefffac84 (diff) | |
| download | haskell-wip/ghci-leaks-fix.tar.gz | |
Strict fields in ModNodeKey (otherwise retains HomeModInfo)wip/ghci-leaks-fix
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 3de0bd2aee..82d20f07a5 100644 --- a/compiler/GHC/Unit/Module/Graph.hs +++ b/compiler/GHC/Unit/Module/Graph.hs @@ -131,8 +131,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 |