diff options
| author | Oleg Grenrus <oleg.grenrus@iki.fi> | 2015-09-28 07:21:11 +0300 |
|---|---|---|
| committer | Oleg Grenrus <oleg.grenrus@iki.fi> | 2015-09-28 07:21:11 +0300 |
| commit | dee8ef2b918917a1469f35b24d7bd9f7caa59d62 (patch) | |
| tree | 797fe07a3a385f3cceb73dd79c9e78c22c17a38a /haddock-api/src/Haddock/Interface.hs | |
| parent | 02e633a6f9b7ccb53a92a838c1b717ef9f3737fc (diff) | |
Have source links for orphan instances
Diffstat (limited to 'haddock-api/src/Haddock/Interface.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Interface.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Interface.hs b/haddock-api/src/Haddock/Interface.hs index 1bb04ed3..8b04d76b 100644 --- a/haddock-api/src/Haddock/Interface.hs +++ b/haddock-api/src/Haddock/Interface.hs @@ -228,7 +228,7 @@ buildHomeLinks ifaces = foldl upd Map.empty (reverse ifaces) foldl' keep_old old_env exported_names | otherwise = foldl' keep_new old_env exported_names where - exported_names = ifaceVisibleExports iface + exported_names = ifaceVisibleExports iface ++ map getName (ifaceInstances iface) mdl = ifaceMod iface keep_old env n = Map.insertWith (\_ old -> old) n mdl env keep_new env n = Map.insert n mdl env |