clean up Util.hs

1 files changed, 2 insertions, 22 deletions

diff --git a/src/Haddock/Backends/Xhtml/Util.hs b/src/Haddock/Backends/Xhtml/Util.hs
index d4ead8d8..9db73742 100644
--- a/src/Haddock/Backends/Xhtml/Util.hs
+++ b/src/Haddock/Backends/Xhtml/Util.hs
@@ -16,14 +16,13 @@ module Haddock.Backends.Xhtml.Util (
   namedAnchor, linkedAnchor,
   spliceURL,
   
-  (<+>), char, empty, nonEmpty,
+  (<+>), char, nonEmpty,
   keyword, punctuate,
   
   braces, brackets, pabrackets, parens, parenList, ubxParenList,
   arrow, comma, dcolon, dot, darrow, equals, forallSymbol, quote,
   
-  tda, emptyTable, s8,
-  abovesSep, hsep,
+  hsep,
   
   collapsebutton, collapseId,
   documentCharacterEncoding,
@@ -109,9 +108,6 @@ comma  = char ','
 char :: Char -> Html
 char c = toHtml [c]
 
-empty :: Html
-empty  = noHtml
-
 -- | ensure content contains at least something (a non-breaking space)
 nonEmpty :: (HTML a) => a -> Html
 nonEmpty a = if isNoHtml h then spaceHtml else h
@@ -135,13 +131,6 @@ punctuate h (d0:ds) = go d0 ds
                      go d [] = [d]
                      go d (e:es) = (d +++ h) : go e es
 
-abovesSep :: HtmlTable -> [HtmlTable] -> HtmlTable
-abovesSep _ []      = emptyTable
-abovesSep h (d0:ds) = go d0 ds
-                   where
-                     go d [] = d
-                     go d (e:es) = d </> h </> go e es
-
 parenList :: [Html] -> Html
 parenList = parens . hsep . punctuate comma
 
@@ -152,12 +141,6 @@ ubxparens :: Html -> Html
 ubxparens h = toHtml "(#" +++ h +++ toHtml "#)"
 
 
-tda :: [HtmlAttr] -> Html -> HtmlTable
-tda as = cell . (td ! as)
-
-emptyTable :: HtmlTable
-emptyTable = cell noHtml
-
 onclick :: String -> HtmlAttr
 onclick = strAttr "onclick"
 
@@ -173,9 +156,6 @@ dot :: Html
 dot = toHtml "."
 
 
-s8 :: HtmlTable
-s8  = tda [ theclass "s8" ]  << noHtml
-
 
 -- | Generate a named anchor
 --