From 47164db7bfd12449a31418a6f02de436e8fe4787 Mon Sep 17 00:00:00 2001
From: Neil Mitchell <http://www.cs.york.ac.uk/~ndm/>
Date: Thu, 11 Jan 2007 15:41:15 +0000
Subject: Never do spliting index files into many

---
 src/Haddock/Backends/Html.hs | 13 +------------
 1 file changed, 1 insertion(+), 12 deletions(-)

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

diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs
index 2413863a..36be7909 100644
--- a/src/Haddock/Backends/Html.hs
+++ b/src/Haddock/Backends/Html.hs
@@ -420,9 +420,6 @@ ppHtmlIndex odir doctitle maybe_package maybe_html_help_format
 	    index_html
 	   )
 
-  when split_indices $
-    mapM_ (do_sub_index index) initialChars
-
   writeFile (pathJoin [odir, indexHtmlFile]) (renderHtml html)
   
     -- Generate index and contents page for Html Help if requested
@@ -433,15 +430,7 @@ ppHtmlIndex odir doctitle maybe_package maybe_html_help_format
     Just "devhelp" -> return ()
     Just format    -> fail ("The "++format++" format is not implemented")
  where
-  split_indices = length index > 50
-
-  index_html
-    | split_indices = 
-	tda [theclass "section1"] << 
-	      	toHtml ("Index") </>
-	indexInitialLetterLinks
-   | otherwise =
-	td << table ! [cellpadding 0, cellspacing 5] <<
+  index_html = td << table ! [cellpadding 0, cellspacing 5] <<
 	  aboves (map indexElt index) 
  	
   indexInitialLetterLinks = 
-- 
cgit v1.2.3