diff options
| author | David Waern <david.waern@gmail.com> | 2011-11-26 17:01:06 +0100 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2011-11-26 17:01:06 +0100 |
| commit | 1345132fd141b8d9b12e858ccc0765272f703e49 (patch) | |
| tree | af13cc6fca295a35cf8d4d3c8391ebab5f87f83c /src/Main.hs | |
| parent | 3ebdc745d7bc79307986332dc71f3495099b4579 (diff) | |
Allow doc comments to link to out-of-scope things (#78).
(A bug that should have been fixed long ago.)
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/Main.hs b/src/Main.hs index f78ace69..0a3c9ffc 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -228,7 +228,7 @@ render flags ifaces installedIfaces srcMap = do when (Flag_GenContents `elem` flags) $ do ppHtmlContents odir title pkgStr themes opt_index_url sourceUrls' opt_wiki_urls - allVisibleIfaces True prologue pretty + allVisibleIfaces True prologue pretty opt_qualification copyHtmlBits odir libDir themes when (Flag_Html `elem` flags) $ do @@ -393,10 +393,13 @@ shortcutFlags flags = do updateHTMLXRefs :: [(DocPaths, InterfaceFile)] -> IO () -updateHTMLXRefs packages = writeIORef html_xrefs_ref (Map.fromList mapping) +updateHTMLXRefs packages = do + writeIORef html_xrefs_ref (Map.fromList mapping) + writeIORef html_xrefs_ref' (Map.fromList mapping') where mapping = [ (instMod iface, html) | ((html, _), ifaces) <- packages , iface <- ifInstalledIfaces ifaces ] + mapping' = [ (moduleName m, html) | (m, html) <- mapping ] getPrologue :: [Flag] -> IO (Maybe (Doc RdrName)) |