diff options
| author | simonmar <unknown> | 2003-11-06 14:47:36 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2003-11-06 14:47:36 +0000 |
| commit | fe1b34608ccde943a9e0eed1728645d295dbda51 (patch) | |
| tree | 00a6641b5e2dc1380c20d2a26b644718ec28689d | |
| parent | 0a09c293d3d2294363a86f41bc74c3f5df123a08 (diff) | |
[haddock @ 2003-11-06 14:47:36 by simonmar]
Remove the 'Parent' button - it is of dubious use, and often points
into thin air.
| -rw-r--r-- | src/HaddockHtml.hs | 10 |
1 files changed, 0 insertions, 10 deletions
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 ) |