aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends/Xhtml
diff options
context:
space:
mode:
authorMark Lentczner <markl@glyphic.com>2010-07-16 20:12:39 +0000
committerMark Lentczner <markl@glyphic.com>2010-07-16 20:12:39 +0000
commitd52487d1417080d45a800b1ceba71ed48b9582bb (patch)
tree5a6e49a3786aac413c20f3bc0454a6d9642a2f70 /src/Haddock/Backends/Xhtml
parent7832c8030a203510b89bd13fdc98eaf7279eb172 (diff)
new output for mini_ pages
Diffstat (limited to 'src/Haddock/Backends/Xhtml')
-rw-r--r--src/Haddock/Backends/Xhtml/Layout.hs5
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Haddock/Backends/Xhtml/Layout.hs b/src/Haddock/Backends/Xhtml/Layout.hs
index 86e75740..d7f9c1c8 100644
--- a/src/Haddock/Backends/Xhtml/Layout.hs
+++ b/src/Haddock/Backends/Xhtml/Layout.hs
@@ -11,6 +11,8 @@
-- Portability : portable
-----------------------------------------------------------------------------
module Haddock.Backends.Xhtml.Layout (
+ miniBody,
+
divPackageHeader, divModuleHeader, divFooter,
divTableOfContents, divDescription, divSynposis, divInterface,
@@ -46,6 +48,9 @@ import GHC
-- Sections of the document
+miniBody :: Html -> Html
+miniBody = body ! [identifier "mini"]
+
divPackageHeader, divModuleHeader, divFooter :: Html -> Html
divPackageHeader = thediv ! [identifier "package-header"]
divModuleHeader = thediv ! [identifier "module-header"]