From ab036c7617982c513f2d820ae9076c381453f491 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Sun, 11 Nov 2007 02:41:53 +0000
Subject: Fix conflicts

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

(limited to 'src/Haddock/Backends/Html.hs')

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