From 3edc93d3c0becf85d9fc225734c01c345712149e Mon Sep 17 00:00:00 2001 From: Mark Lentczner Date: Wed, 14 Jul 2010 21:07:32 +0000 Subject: removing old table cruft from Layout.hs --- src/Haddock/Backends/Xhtml/Layout.hs | 20 +------------------- 1 file changed, 1 insertion(+), 19 deletions(-) (limited to 'src/Haddock/Backends/Xhtml/Layout.hs') diff --git a/src/Haddock/Backends/Xhtml/Layout.hs b/src/Haddock/Backends/Xhtml/Layout.hs index 70f5d88c..205f659c 100644 --- a/src/Haddock/Backends/Xhtml/Layout.hs +++ b/src/Haddock/Backends/Xhtml/Layout.hs @@ -28,9 +28,7 @@ module Haddock.Backends.Xhtml.Layout ( topDeclElem, declElem, atHdr, methHdr, - argBox, ndocBox, rdocBox, maybeRDocBox, - - vanillaTable, vanillaTable2, spacedTable1, spacedTable5 + argBox, vanillaTable, vanillaTable2 ) where import Haddock.Backends.Xhtml.DocMarkup @@ -160,27 +158,11 @@ argBox :: Html -> HtmlTable argBox html = tda [theclass "arg"] << html --- a box for displaying documentation, not indented. -ndocBox :: Html -> HtmlTable -ndocBox html = tda [theclass "ndoc"] << html - --- a box for displaying documentation, padded on the left a little -rdocBox :: Html -> HtmlTable -rdocBox html = tda [theclass "rdoc"] << html - -maybeRDocBox :: Maybe (Doc DocName) -> HtmlTable -maybeRDocBox Nothing = rdocBox (noHtml) -maybeRDocBox (Just doc) = rdocBox (docToHtml doc) - - -- 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] -spacedTable1, spacedTable5 :: Html -> Html -spacedTable1 = table ! [theclass "vanilla", cellspacing 1, cellpadding 0] -spacedTable5 = table ! [theclass "vanilla", cellspacing 5, cellpadding 0] methHdr, atHdr :: Html methHdr = h5 << "Methods" -- cgit v1.2.3