aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends/Xhtml.hs
diff options
context:
space:
mode:
authorMark Lentczner <markl@glyphic.com>2010-07-26 02:39:15 +0000
committerMark Lentczner <markl@glyphic.com>2010-07-26 02:39:15 +0000
commitb195ecb345132895e0564e4e849196d137e24cdd (patch)
treee93ad45948aabbccfd4efca9aa508a5c93fc9459 /src/Haddock/Backends/Xhtml.hs
parent82702b85d29a7b45f53cb7da2e986ae477e985ff (diff)
make module list use new collapsers
Diffstat (limited to 'src/Haddock/Backends/Xhtml.hs')
-rw-r--r--src/Haddock/Backends/Xhtml.hs12
1 files changed, 6 insertions, 6 deletions
diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs
index 94ee6347..7eb3180d 100644
--- a/src/Haddock/Backends/Xhtml.hs
+++ b/src/Haddock/Backends/Xhtml.hs
@@ -279,13 +279,13 @@ mkNodeList ss p ts = case ts of
mkNode :: [String] -> String -> ModuleTree -> Html
mkNode ss p (Node s leaf pkg short ts) =
- collBtn +++ htmlModule +++ shortDescr +++ htmlPkg +++ subtree
+ htmlModule +++ shortDescr +++ htmlPkg +++ subtree
where
- collBtn = case ts of
- [] -> noHtml
- _ -> collapsebutton p
+ modAttrs = case ts of
+ [] -> [theclass "module"]
+ _ -> collapser p "module"
- htmlModule = thespan ! [theclass "module" ] <<
+ htmlModule = thespan ! modAttrs <<
(if leaf
then ppModule (mkModule (stringToPackageId (fromMaybe "" pkg))
(mkModuleName mdl))
@@ -297,7 +297,7 @@ mkNode ss p (Node s leaf pkg short ts) =
shortDescr = maybe noHtml origDocToHtml short
htmlPkg = maybe noHtml (thespan ! [theclass "package"] <<) pkg
- subtree = mkNodeList (s:ss) p ts ! [identifier p]
+ subtree = mkNodeList (s:ss) p ts ! [identifier p, theclass "show"]
-- | Turn a module tree into a flat list of full module names. E.g.,