diff options
| author | Mark Lentczner <markl@glyphic.com> | 2010-07-17 04:07:22 +0000 |
|---|---|---|
| committer | Mark Lentczner <markl@glyphic.com> | 2010-07-17 04:07:22 +0000 |
| commit | ab5cfb6196234612dd90b897f26ca0013a9da64c (patch) | |
| tree | cd9eda2bd398005cc5df32ae2ad18c260ed5f466 /src/Haddock/Backends/Xhtml | |
| parent | efcaa44c353503aa7384de55091be70ac5fbb4ed (diff) | |
convert index.html to new markup, adjust module markup
Diffstat (limited to 'src/Haddock/Backends/Xhtml')
| -rw-r--r-- | src/Haddock/Backends/Xhtml/Layout.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/Haddock/Backends/Xhtml/Layout.hs b/src/Haddock/Backends/Xhtml/Layout.hs index 616b3b95..98801d1e 100644 --- a/src/Haddock/Backends/Xhtml/Layout.hs +++ b/src/Haddock/Backends/Xhtml/Layout.hs @@ -14,7 +14,7 @@ module Haddock.Backends.Xhtml.Layout ( miniBody, divPackageHeader, divModuleHeader, divFooter, - divModuleList, divTableOfContents, + divIndex, divModuleList, divTableOfContents, divDescription, divSynposis, divInterface, sectionName, @@ -57,10 +57,12 @@ divPackageHeader = thediv ! [identifier "package-header"] divModuleHeader = thediv ! [identifier "module-header"] divFooter = thediv ! [identifier "footer"] -divModuleList, divTableOfContents, - divDescription, divSynposis, divInterface :: Html -> Html +divIndex, divModuleList, divTableOfContents :: Html -> Html +divIndex = thediv ! [identifier "index"] divModuleList = thediv ! [identifier "module-list"] divTableOfContents = thediv ! [identifier "table-of-contents"] + +divDescription, divSynposis, divInterface :: Html -> Html divDescription = thediv ! [identifier "description"] divSynposis = thediv ! [identifier "synopsis"] divInterface = thediv ! [identifier "interface"] |