aboutsummaryrefslogtreecommitdiff
path: root/haddock-api
diff options
context:
space:
mode:
authorŁukasz Hanuszczak <lukasz.hanuszczak@gmail.com>2015-07-05 17:47:34 +0200
committerŁukasz Hanuszczak <lukasz.hanuszczak@gmail.com>2015-07-05 17:47:34 +0200
commit5927bfd4737532e7f1282672a96c2a2cb83c847f (patch)
treebd151e0d562595a5478eef0f08e9a3fb5611b1e5 /haddock-api
parent99980dcc63d696c7912ff1f0d2faadcce169f184 (diff)
Fix bug where not all module interfaces were added to source mapping.
Diffstat (limited to 'haddock-api')
-rw-r--r--haddock-api/src/Haddock.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/haddock-api/src/Haddock.hs b/haddock-api/src/Haddock.hs
index 5c48d28b..d4d8e3e6 100644
--- a/haddock-api/src/Haddock.hs
+++ b/haddock-api/src/Haddock.hs
@@ -229,8 +229,10 @@ renderStep dflags flags qual pkgs interfaces = do
let
ifaceFiles = map snd pkgs
installedIfaces = concatMap ifInstalledIfaces ifaceFiles
- extSrcMap = Map.fromList
- [ (ifModule ifile, path) | ((_, Just path), ifile) <- pkgs ]
+ extSrcMap = Map.fromList $ do
+ ((_, Just path), ifile) <- pkgs
+ iface <- ifInstalledIfaces ifile
+ return (instMod iface, path)
render dflags flags qual interfaces installedIfaces extSrcMap