diff options
Diffstat (limited to 'src/Haddock/Interface.hs')
| -rw-r--r-- | src/Haddock/Interface.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Haddock/Interface.hs b/src/Haddock/Interface.hs index d81a5c9f..98da7245 100644 --- a/src/Haddock/Interface.hs +++ b/src/Haddock/Interface.hs @@ -68,11 +68,10 @@ createInterfaces verbosity session modules flags extIfaces = do homeLinks = buildHomeLinks interfaces -- build the environment for the home -- package links = homeLinks `Map.union` extLinks - allNames = Map.keys links -- part 3, attach instances out verbosity verbose "Attaching instances..." - let interfaces' = attachInstances interfaces allNames + interfaces' <- attachInstances interfaces -- part 4, rename interfaces out verbosity verbose "Renaming interfaces..." |