From dd861488e115b4419f2b9f6f6422adaa4041287f Mon Sep 17 00:00:00 2001
From: Mark Lentczner <markl@glyphic.com>
Date: Fri, 16 Jul 2010 20:58:41 +0000
Subject: reformat index-frames
---
src/Haddock/Backends/Xhtml.hs | 5 ++---
src/Haddock/Backends/Xhtml/Layout.hs | 9 ++++++---
2 files changed, 8 insertions(+), 6 deletions(-)
(limited to 'src/Haddock')
diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs
index e3f28824..8a66a987 100644
--- a/src/Haddock/Backends/Xhtml.hs
+++ b/src/Haddock/Backends/Xhtml.hs
@@ -33,7 +33,6 @@ import Haddock.Types
import Haddock.Version
import Haddock.Utils
import Text.XHtml hiding ( name, title, p, quote )
-import qualified Text.XHtml as Html
import Haddock.GhcUtils
import Control.Exception ( bracket )
@@ -392,8 +391,8 @@ ppHtmlContentsFrame odir doctitle ifaces = do
thetitle (toHtml doctitle) +++
styleSheet +++
(script ! [src jsFile, thetype "text/javascript"] $ noHtml)) +++
- body << vanillaTable << Html.p << (
- foldr (+++) noHtml (map (+++br) mods))
+ miniBody << divModuleList <<
+ (sectionName << "Modules" +++ shortDeclList mods)
createDirectoryIfMissing True odir
writeFile (joinPath [odir, frameIndexHtmlFile]) (renderToString html)
diff --git a/src/Haddock/Backends/Xhtml/Layout.hs b/src/Haddock/Backends/Xhtml/Layout.hs
index d7f9c1c8..b6818b61 100644
--- a/src/Haddock/Backends/Xhtml/Layout.hs
+++ b/src/Haddock/Backends/Xhtml/Layout.hs
@@ -14,8 +14,9 @@ module Haddock.Backends.Xhtml.Layout (
miniBody,
divPackageHeader, divModuleHeader, divFooter,
- divTableOfContents, divDescription, divSynposis, divInterface,
-
+ divModuleList, divTableOfContents,
+ divDescription, divSynposis, divInterface,
+
sectionName,
shortDeclList,
@@ -56,7 +57,9 @@ divPackageHeader = thediv ! [identifier "package-header"]
divModuleHeader = thediv ! [identifier "module-header"]
divFooter = thediv ! [identifier "footer"]
-divTableOfContents, divDescription, divSynposis, divInterface :: Html -> Html
+divModuleList, divTableOfContents,
+ divDescription, divSynposis, divInterface :: Html -> Html
+divModuleList = thediv ! [identifier "module-list"]
divTableOfContents = thediv ! [identifier "table-of-contents"]
divDescription = thediv ! [identifier "description"]
divSynposis = thediv ! [identifier "synopsis"]
--
cgit v1.2.3