diff options
| author | Isaac Dupree <id@isaac.cedarswampstudios.org> | 2009-08-18 02:23:31 +0000 |
|---|---|---|
| committer | Isaac Dupree <id@isaac.cedarswampstudios.org> | 2009-08-18 02:23:31 +0000 |
| commit | 6f354c0c94c7eb01425212a5c7641d947bccf3de (patch) | |
| tree | 8dbe0013c4c08fc0b2d6462d1502aa40fdaaf6d7 /src/Haddock/Interface.hs | |
| parent | 9e81f6efcdb3b034e15de394b138118d9c62b499 (diff) | |
Find instances using GHC, which is more complete.
In particular, it works cross-package.
An intermediate patch also moved the instance-finding into
createInterface, but that move turned out not to be necessary,
so if we want to do that, it'd go in a separate patch.
(Is that possible? Or will we need GHC to have loaded all the modules
first, before we can go searching for the instances (e.g. if the
modules are recursive or something)?)
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..." |