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) =