aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMark Lentczner <markl@glyphic.com>2010-07-17 05:11:45 +0000
committerMark Lentczner <markl@glyphic.com>2010-07-17 05:11:45 +0000
commit8f6355a0ad885c1d2872d619670b1cb90f6696c4 (patch)
tree0510c756ccd6353648647f096ef9ffe183c869aa /src
parente2ea17436f9632868c58d35412df7e75ca98b470 (diff)
clean up Layout.hs: no more vanillaTable
Diffstat (limited to 'src')
-rw-r--r--src/Haddock/Backends/Xhtml/Layout.hs12
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]