aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Interface.hs
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2010-05-13 22:07:35 +0000
committerDavid Waern <david.waern@gmail.com>2010-05-13 22:07:35 +0000
commitbec7fdec049b0903bbafbfac6629a6e5b6bcf9f1 (patch)
tree4b85a9d00313f898ac7a687deb531ea23d49d596 /src/Haddock/Interface.hs
parent472bb94180687bce37be39ff81ac9643adbd3087 (diff)
Remove meaningless comments
Diffstat (limited to 'src/Haddock/Interface.hs')
-rw-r--r--src/Haddock/Interface.hs17
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) =