From fd7cc6bc85c5d3b016b3554d03957d14dce3c6d2 Mon Sep 17 00:00:00 2001
From: krasimir <unknown>
Date: Sun, 1 Aug 2004 19:52:08 +0000
Subject: [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.

---
 src/HaddockDevHelp.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/HaddockDevHelp.hs')

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