diff options
Diffstat (limited to 'src/Haddock.hs')
| -rw-r--r-- | src/Haddock.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Haddock.hs b/src/Haddock.hs index cc7e7842..e4c7fdc0 100644 --- a/src/Haddock.hs +++ b/src/Haddock.hs @@ -242,9 +242,11 @@ render dflags flags qual ifaces installedIfaces srcMap = do pkgStr = Just (packageIdString pkgId) (pkgName,pkgVer) = modulePackageInfo pkgMod - (srcBase, srcModule, srcEntity) = sourceUrls flags + (srcBase, srcModule, srcEntity, srcLEntity) = sourceUrls flags srcMap' = maybe srcMap (\path -> Map.insert pkgId path srcMap) srcEntity - sourceUrls' = (srcBase, srcModule, srcMap') + -- TODO: Get these from the interface files as with srcMap + srcLMap' = maybe Map.empty (\path -> Map.singleton pkgId path) srcLEntity + sourceUrls' = (srcBase, srcModule, srcMap', srcLMap') libDir <- getHaddockLibDir flags prologue <- getPrologue dflags flags |