aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Interface.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Haddock/Interface.hs')
-rw-r--r--src/Haddock/Interface.hs12
1 files changed, 6 insertions, 6 deletions
diff --git a/src/Haddock/Interface.hs b/src/Haddock/Interface.hs
index 477bf09d..d8ccabf9 100644
--- a/src/Haddock/Interface.hs
+++ b/src/Haddock/Interface.hs
@@ -50,25 +50,25 @@ createInterfaces
-> Ghc ([Interface], LinkEnv)
-- ^ Resulting list of interfaces and renaming environment
createInterfaces verbosity modules flags extIfaces = do
- -- part 1, create interfaces
+ -- Part 1, create 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
+ -- Part 2, build link environment
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
+ homeLinks = buildHomeLinks interfaces -- Build the environment for the home
-- package
links = homeLinks `Map.union` extLinks
- -- part 3, attach instances
+ -- Part 3, attach instances
out verbosity verbose "Attaching instances..."
interfaces' <- attachInstances interfaces instIfaceMap
- -- part 4, rename interfaces
+ -- Part 4, rename interfaces
out verbosity verbose "Renaming interfaces..."
let warnings = Flag_NoWarnings `notElem` flags
let (interfaces'', msgs) =