From efcaa44c353503aa7384de55091be70ac5fbb4ed Mon Sep 17 00:00:00 2001
From: Mark Lentczner <markl@glyphic.com>
Date: Fri, 16 Jul 2010 22:41:53 +0000
Subject: convert index to new markup

---
 src/Haddock/Backends/Xhtml/Util.hs | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

(limited to 'src/Haddock/Backends/Xhtml/Util.hs')

diff --git a/src/Haddock/Backends/Xhtml/Util.hs b/src/Haddock/Backends/Xhtml/Util.hs
index 13215bb7..d4ead8d8 100644
--- a/src/Haddock/Backends/Xhtml/Util.hs
+++ b/src/Haddock/Backends/Xhtml/Util.hs
@@ -25,7 +25,7 @@ module Haddock.Backends.Xhtml.Util (
   tda, emptyTable, s8,
   abovesSep, hsep,
   
-  collapsebutton, collapseId, collapsed,
+  collapsebutton, collapseId,
   documentCharacterEncoding,
   
   cssFiles, styleSheet, stylePickers, styleMenu
@@ -206,10 +206,6 @@ collapsebutton :: String -> Html
 collapsebutton id_ = 
   image ! [ src minusFile, theclass "coll", onclick ("toggle(this,'" ++ id_ ++ "')"), alt "show/hide" ]
 
-collapsed :: (HTML a) => (Html -> Html) -> String -> a -> Html
-collapsed fn id_ html =
-  fn ! [identifier id_, thestyle "display:block;"] << html
-
 -- A quote is a valid part of a Haskell identifier, but it would interfere with
 -- the ECMA script string delimiter used in collapsebutton above.
 collapseId :: Name -> String
-- 
cgit v1.2.3