diff options
| author | Neil Mitchell <http://www.cs.york.ac.uk/~ndm/> | 2007-01-11 15:41:15 +0000 |
|---|---|---|
| committer | Neil Mitchell <http://www.cs.york.ac.uk/~ndm/> | 2007-01-11 15:41:15 +0000 |
| commit | 47164db7bfd12449a31418a6f02de436e8fe4787 (patch) | |
| tree | ced10dfeb6271f5511478a48aa7f0ff1a5b48795 /src/Haddock/Backends | |
| parent | 76c29f4a6617069e56e0714c361624c896e2939a (diff) | |
Never do spliting index files into many
Diffstat (limited to 'src/Haddock/Backends')
| -rw-r--r-- | src/Haddock/Backends/Html.hs | 13 |
1 files changed, 1 insertions, 12 deletions
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 = |