diff options
| author | Mark Lentczner <markl@glyphic.com> | 2010-07-17 05:11:45 +0000 |
|---|---|---|
| committer | Mark Lentczner <markl@glyphic.com> | 2010-07-17 05:11:45 +0000 |
| commit | 8f6355a0ad885c1d2872d619670b1cb90f6696c4 (patch) | |
| tree | 0510c756ccd6353648647f096ef9ffe183c869aa /src/Haddock | |
| parent | e2ea17436f9632868c58d35412df7e75ca98b470 (diff) | |
clean up Layout.hs: no more vanillaTable
Diffstat (limited to 'src/Haddock')
| -rw-r--r-- | src/Haddock/Backends/Xhtml/Layout.hs | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/src/Haddock/Backends/Xhtml/Layout.hs b/src/Haddock/Backends/Xhtml/Layout.hs index 98801d1e..c079ea42 100644 --- a/src/Haddock/Backends/Xhtml/Layout.hs +++ b/src/Haddock/Backends/Xhtml/Layout.hs @@ -33,8 +33,6 @@ module Haddock.Backends.Xhtml.Layout ( subMethods, topDeclElem, declElem, - - vanillaTable, vanillaTable2 ) where import Haddock.Backends.Xhtml.DocMarkup @@ -94,6 +92,9 @@ divSubDecls cssClass captionName = maybe noHtml wrap subSection = thediv ! [theclass $ unwords ["subs", cssClass]] subCaption = paragraph ! [theclass "caption"] << captionName +{- + if we ever decide to style sub-declarations with dl lists, this code does it + subDlist :: [SubDecl] -> Maybe Html subDlist [] = Nothing subDlist decls = Just $ dlist << map subEntry decls @@ -105,6 +106,7 @@ subDlist decls = Just $ dlist << map subEntry decls Nothing `with` [] = spaceHtml ma `with` bs = ma +++ bs +-} subTable :: [SubDecl] -> Maybe Html subTable [] = Nothing @@ -177,9 +179,3 @@ topDeclElem ((_,_,maybe_source_url), (_,_,maybe_wiki_url)) loc name html = fname = unpackFS (srcSpanFile loc) - - --- a vanilla table has width 100%, no border, no padding, no spacing -vanillaTable, vanillaTable2 :: Html -> Html -vanillaTable = table ! [theclass "vanilla", cellspacing 0, cellpadding 0] -vanillaTable2 = table ! [theclass "vanilla2", cellspacing 0, cellpadding 0] |