From 5927bfd4737532e7f1282672a96c2a2cb83c847f Mon Sep 17 00:00:00 2001
From: Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com>
Date: Sun, 5 Jul 2015 17:47:34 +0200
Subject: Fix bug where not all module interfaces were added to source mapping.

---
 haddock-api/src/Haddock.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'haddock-api/src')

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
 
 
-- 
cgit v1.2.3