From 2c13a31106e7cc47b717c2970640ac7cb6b444fc Mon Sep 17 00:00:00 2001 From: David Waern Date: Thu, 13 May 2010 18:45:01 +0000 Subject: Fixes to comments only --- src/Haddock/Interface.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src') 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) = -- cgit v1.2.3