diff options
author | David Waern <david.waern@gmail.com> | 2010-05-13 22:07:35 +0000 |
---|---|---|
committer | David Waern <david.waern@gmail.com> | 2010-05-13 22:07:35 +0000 |
commit | bec7fdec049b0903bbafbfac6629a6e5b6bcf9f1 (patch) | |
tree | 4b85a9d00313f898ac7a687deb531ea23d49d596 /src/Haddock | |
parent | 472bb94180687bce37be39ff81ac9643adbd3087 (diff) |
Remove meaningless comments
Diffstat (limited to 'src/Haddock')
-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) = |