From e9d8085c4018838f62dbd6a06757cf3e31c35cf2 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 5 Aug 2003 14:10:31 +0000
Subject: [haddock @ 2003-08-05 14:10:31 by simonmar] I'm not sure why, but it
 seems that the index entries for non-defining occurrences of entities did not
 have an anchor - the link just pointed to the module.  This fixes it.

---
 src/HaddockHtml.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/HaddockHtml.hs')

diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs
index f6a9bdd5..fc65c4a1 100644
--- a/src/HaddockHtml.hs
+++ b/src/HaddockHtml.hs
@@ -294,7 +294,7 @@ ppHtmlIndex odir doctitle ifaces = do
      <-> td << (hsep [ if defining then
 			 bold << linkId (Module mdl) (Just nm) << toHtml mdl
 		       else
-			 linkId (Module mdl) Nothing << toHtml mdl
+			 linkId (Module mdl) (Just nm) << toHtml mdl
 	             | (Module mdl, defining) <- entries ])
 
   initialChars = [ 'A'..'Z' ] ++ ":!#$%&*+./<=>?@\\^|-~"
-- 
cgit v1.2.3