diff options
author | Matthew Pickering <matthewtpickering@gmail.com> | 2022-12-27 10:14:42 +0000 |
---|---|---|
committer | Matthew Pickering <matthewtpickering@gmail.com> | 2022-12-27 12:13:05 +0000 |
commit | c9238903d12bbbe8bcc7c6439b96bc768dd35ca4 (patch) | |
tree | f20f94ef8233338e630c83ed04e3a073350fb31b | |
parent | 054387bd8cf3b5d2f6a71ff6dd56f6532b01be6f (diff) | |
download | haskell-wip/recomp-fixes-9.4.tar.gz |
Debug: Print full NodeKey when pretty printing ModuleGraphNodewip/recomp-fixes-9.4
This is helpful when debugging multiple component issues.
-rw-r--r-- | compiler/GHC/Unit/Module/Graph.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Unit/Module/Graph.hs b/compiler/GHC/Unit/Module/Graph.hs index ceae3683ea..cf079ff9e9 100644 --- a/compiler/GHC/Unit/Module/Graph.hs +++ b/compiler/GHC/Unit/Module/Graph.hs @@ -99,7 +99,7 @@ moduleGraphNodeUnitId mgn = instance Outputable ModuleGraphNode where ppr = \case InstantiationNode _ iuid -> ppr iuid - ModuleNode nks ms -> ppr (ms_mnwib ms) <+> ppr nks + ModuleNode nks ms -> ppr (msKey ms) <+> ppr nks LinkNode uid _ -> text "LN:" <+> ppr uid instance Eq ModuleGraphNode where |