diff options
| -rw-r--r-- | src/Haddock/Interface.hs | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/src/Haddock/Interface.hs b/src/Haddock/Interface.hs index 3c6c76b8..c69a3423 100644 --- a/src/Haddock/Interface.hs +++ b/src/Haddock/Interface.hs @@ -63,25 +63,22 @@ createInterfaces -> Ghc ([Interface], LinkEnv) -- ^ Resulting list of interfaces and renaming environment createInterfaces verbosity modules flags extIfaces = do - -- Part 1, create interfaces + + out verbosity verbose "Creating interfaces..." let instIfaceMap = Map.fromList [ (instMod iface, iface) | ext <- extIfaces , iface <- ifInstalledIfaces ext ] - out verbosity verbose "Creating interfaces..." interfaces <- createInterfaces' verbosity modules flags instIfaceMap - -- Part 2, build link environment + out verbosity verbose "Attaching instances..." + interfaces' <- attachInstances interfaces instIfaceMap + out verbosity verbose "Building link environment..." - -- Combine the link envs of the external packages into one + -- Combine the link envs of the external packages into one let extLinks = Map.unions (map ifLinkEnv extIfaces) homeLinks = buildHomeLinks interfaces -- Build the environment for the home -- package links = homeLinks `Map.union` extLinks - - -- Part 3, attach instances - out verbosity verbose "Attaching instances..." - interfaces' <- attachInstances interfaces instIfaceMap - - -- Part 4, rename interfaces + out verbosity verbose "Renaming interfaces..." let warnings = Flag_NoWarnings `notElem` flags let (interfaces'', msgs) = |