From d52487d1417080d45a800b1ceba71ed48b9582bb Mon Sep 17 00:00:00 2001 From: Mark Lentczner Date: Fri, 16 Jul 2010 20:12:39 +0000 Subject: new output for mini_ pages --- src/Haddock/Backends/Xhtml/Layout.hs | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'src/Haddock/Backends/Xhtml') 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"] -- cgit v1.2.3