aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends/Xhtml.hs
diff options
context:
space:
mode:
authorMark Lentczner <markl@glyphic.com>2010-07-16 20:58:41 +0000
committerMark Lentczner <markl@glyphic.com>2010-07-16 20:58:41 +0000
commitdd861488e115b4419f2b9f6f6422adaa4041287f (patch)
tree85d13539a6fd1415d358fc7312ccadf61ee49b62 /src/Haddock/Backends/Xhtml.hs
parentd52487d1417080d45a800b1ceba71ed48b9582bb (diff)
reformat index-frames
Diffstat (limited to 'src/Haddock/Backends/Xhtml.hs')
-rw-r--r--src/Haddock/Backends/Xhtml.hs5
1 files changed, 2 insertions, 3 deletions
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)