From a70355a145e182bd1963ab707472dffb75f663bb Mon Sep 17 00:00:00 2001 From: Mark Lentczner Date: Sun, 25 Apr 2010 05:38:35 +0000 Subject: remove unused bodyBox --- src/Haddock/Backends/Xhtml/Layout.hs | 3 --- 1 file changed, 3 deletions(-) (limited to 'src/Haddock/Backends') diff --git a/src/Haddock/Backends/Xhtml/Layout.hs b/src/Haddock/Backends/Xhtml/Layout.hs index 8f9e83e5..ce035c24 100644 --- a/src/Haddock/Backends/Xhtml/Layout.hs +++ b/src/Haddock/Backends/Xhtml/Layout.hs @@ -80,9 +80,6 @@ maybeRDocBox Nothing = rdocBox (noHtml) maybeRDocBox (Just doc) = rdocBox (docToHtml doc) -bodyBox :: Html -> HtmlTable -bodyBox html = tda [theclass "body"] << vanillaTable << html - -- a vanilla table has width 100%, no border, no padding, no spacing vanillaTable, vanillaTable2 :: Html -> Html vanillaTable = table ! [theclass "vanilla", cellspacing 0, cellpadding 0] -- cgit v1.2.3