From 8f6355a0ad885c1d2872d619670b1cb90f6696c4 Mon Sep 17 00:00:00 2001
From: Mark Lentczner <markl@glyphic.com>
Date: Sat, 17 Jul 2010 05:11:45 +0000
Subject: clean up Layout.hs: no more vanillaTable

---
 src/Haddock/Backends/Xhtml/Layout.hs | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

(limited to 'src/Haddock')

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]
-- 
cgit v1.2.3