From fe1b34608ccde943a9e0eed1728645d295dbda51 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 6 Nov 2003 14:47:36 +0000
Subject: [haddock @ 2003-11-06 14:47:36 by simonmar] Remove the 'Parent'
 button - it is of dubious use, and often points into thin air.

---
 src/HaddockHtml.hs | 10 ----------
 1 file changed, 10 deletions(-)

(limited to 'src/HaddockHtml.hs')

diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs
index 03a837c3..fd09bfaa 100644
--- a/src/HaddockHtml.hs
+++ b/src/HaddockHtml.hs
@@ -120,15 +120,6 @@ src_button source_url _ file
   | otherwise =
 	Html.emptyTable
   
-parent_button :: String -> HtmlTable
-parent_button mdl = 
-  case span (/= '.') (reverse mdl) of
-   (_, '.':rest) -> 
-       topButBox (
-  	 anchor ! [href (moduleHtmlFile "" (reverse rest))] << toHtml "Parent")
-   _ -> 
-	Html.emptyTable
-
 contentsButton :: Maybe String -> HtmlTable
 contentsButton maybe_contents_url 
   = topButBox (anchor ! [href url] << toHtml "Contents")
@@ -164,7 +155,6 @@ pageHeader mdl iface doctitle source_url maybe_contents_url maybe_index_url =
        ) <->
        (tda [theclass "title"] << toHtml doctitle) <->
 	src_button source_url mdl (iface_filename iface) <->
-	parent_button mdl <->
 	contentsButton maybe_contents_url <->
 	indexButton maybe_index_url
     )
-- 
cgit v1.2.3