diff options
author | David Waern <david.waern@gmail.com> | 2010-05-13 18:45:01 +0000 |
---|---|---|
committer | David Waern <david.waern@gmail.com> | 2010-05-13 18:45:01 +0000 |
commit | 2c13a31106e7cc47b717c2970640ac7cb6b444fc (patch) | |
tree | 0cc0ff9f8422249f3270768e3dcd740588a2bd26 /src/Haddock | |
parent | f0de0a320f6f5856583d4356883db106f7158f51 (diff) |
Fixes to comments only
Diffstat (limited to 'src/Haddock')
-rw-r--r-- | src/Haddock/Interface.hs | 12 |
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) = |