diff options
| author | krasimir <unknown> | 2004-08-01 19:52:08 +0000 |
|---|---|---|
| committer | krasimir <unknown> | 2004-08-01 19:52:08 +0000 |
| commit | fd7cc6bc85c5d3b016b3554d03957d14dce3c6d2 (patch) | |
| tree | d52b605a9dd737522d47a48ad1ef598f9d08f5d4 /src/HaddockDevHelp.hs | |
| parent | 790fe21eec05d57e400909c218d749a24ae1a63a (diff) | |
[haddock @ 2004-08-01 19:52:06 by krasimir]
fix some bugs. Now I have got the entire libraries documentation in HtmlHelp 2.0 format.
Diffstat (limited to 'src/HaddockDevHelp.hs')
| -rw-r--r-- | src/HaddockDevHelp.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/HaddockDevHelp.hs b/src/HaddockDevHelp.hs index 95987230..3ebfc1c3 100644 --- a/src/HaddockDevHelp.hs +++ b/src/HaddockDevHelp.hs @@ -50,7 +50,7 @@ ppDevHelpFile odir doctitle maybe_package ifaces = do nest 4 (ppModuleTree (s:ss) ts) $+$ text "</sub>" where - ppLink | leaf = text (moduleHtmlFile "" mdl) + ppLink | leaf = text (moduleHtmlFile mdl) | otherwise = empty ppAttribs = text "name="<>doubleQuotes (text s)<+>text "link="<>doubleQuotes ppLink @@ -72,5 +72,5 @@ ppDevHelpFile odir doctitle maybe_package ifaces = do ppReference name [] = empty ppReference name (Module mdl:refs) = - text "<function name=\""<>text (escapeStr (show name))<>text"\" link=\""<>text (nameHtmlRef "" mdl name)<>text"\"/>" $$ + text "<function name=\""<>text (escapeStr (show name))<>text"\" link=\""<>text (nameHtmlRef mdl name)<>text"\"/>" $$ ppReference name refs |