diff options
Diffstat (limited to 'compiler/GHC/Unit/Module/Graph.hs')
| -rw-r--r-- | compiler/GHC/Unit/Module/Graph.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/compiler/GHC/Unit/Module/Graph.hs b/compiler/GHC/Unit/Module/Graph.hs index 5b5d152711..027cbef51b 100644 --- a/compiler/GHC/Unit/Module/Graph.hs +++ b/compiler/GHC/Unit/Module/Graph.hs @@ -21,7 +21,7 @@ module GHC.Unit.Module.Graph , needsTemplateHaskellOrQQ , isTemplateHaskellOrQQNonBoot , showModMsg - ) + , moduleGraphNodeModule) where import GHC.Prelude @@ -54,6 +54,10 @@ data ModuleGraphNode -- | There is a module summary node for each module, signature, and boot module being built. | ModuleNode ExtendedModSummary +moduleGraphNodeModule :: ModuleGraphNode -> Maybe ExtendedModSummary +moduleGraphNodeModule (InstantiationNode {}) = Nothing +moduleGraphNodeModule (ModuleNode ems) = Just ems + instance Outputable ModuleGraphNode where ppr = \case InstantiationNode iuid -> ppr iuid |