aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthew Pickering <matthewtpickering@gmail.com>2021-11-09 12:19:51 +0000
committerMatthew Pickering <matthewtpickering@gmail.com>2021-12-28 09:47:09 +0000
commit5d14361971ec6e6c3dfca282e4b80b307087afe5 (patch)
treebceef1cb0fa12cad8172b44ba44dd995b99d6e12
parent00e7d92f372c706dfd749d824c8c97d38383c25f (diff)
Remove use of ExtendedModSummary
-rw-r--r--haddock-api/src/Haddock/Interface.hs10
1 files changed, 5 insertions, 5 deletions
diff --git a/haddock-api/src/Haddock/Interface.hs b/haddock-api/src/Haddock/Interface.hs
index e4934711..804367c4 100644
--- a/haddock-api/src/Haddock/Interface.hs
+++ b/haddock-api/src/Haddock/Interface.hs
@@ -69,7 +69,7 @@ import GHC.Types.Name.Occurrence (isTcOcc)
import GHC.Types.Name.Reader (globalRdrEnvElts, greMangledName, unQualOK)
import GHC.Unit.Module.Env (ModuleSet, emptyModuleSet, mkModuleSet, unionModuleSet)
import GHC.Unit.Module.Graph
-import GHC.Unit.Module.ModSummary (emsModSummary, isBootSummary)
+import GHC.Unit.Module.ModSummary (isBootSummary)
import GHC.Unit.Types (IsBootInterface (..))
import GHC.Utils.Error (withTiming)
@@ -212,8 +212,8 @@ createIfaces verbosity modules flags instIfaceMap = do
-- i.e. if module A imports B, then B is preferred over A,
-- but if module A {-# SOURCE #-} imports B, then we can't say the same.
--
- go (AcyclicSCC (ModuleNode ems))
- | NotBoot <- isBootSummary (emsModSummary ems) = [ems]
+ go (AcyclicSCC (ModuleNode _ ms))
+ | NotBoot <- isBootSummary ms = [ms]
| otherwise = []
go (AcyclicSCC _) = []
go (CyclicSCC _) = error "haddock: module graph cyclic even with boot files"
@@ -222,9 +222,9 @@ createIfaces verbosity modules flags instIfaceMap = do
ifaces =
[ Map.findWithDefault
(error "haddock:iface")
- (ms_mod (emsModSummary ems))
+ (ms_mod ms)
ifaceMap
- | ems <- concatMap go $ topSortModuleGraph False modGraph Nothing
+ | ms <- concatMap go $ topSortModuleGraph False modGraph Nothing
]
return (ifaces, moduleSet)