From 958009558fca718183f23f920118b966a13ef63b Mon Sep 17 00:00:00 2001
From: Neil Mitchell <http://www.cs.york.ac.uk/~ndm/>
Date: Thu, 11 Jan 2007 18:21:19 +0000
Subject: Delete more stuff that is no longer required

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

diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs
index 034c4db2..40595eae 100644
--- a/src/Haddock/Backends/Html.hs
+++ b/src/Haddock/Backends/Html.hs
@@ -484,8 +484,8 @@ ppHtmlIndex odir doctitle maybe_package maybe_html_help_format
 	[ if visible then
 	     linkId mod (Just nm) << toHtml (moduleString mod)
 	  else
-	     toHtml (moduleString mod)
-	| (mod, visible) <- entries ])
+	     toHtml mdl
+	| (Module mdl, visible) <- entries ])
 
   initialChars = [ 'A'..'Z' ] ++ ":!#$%&*+./<=>?@\\^|-~"
 
-- 
cgit v1.2.3