diff options
| author | Mark Lentczner <markl@glyphic.com> | 2010-07-26 02:39:15 +0000 |
|---|---|---|
| committer | Mark Lentczner <markl@glyphic.com> | 2010-07-26 02:39:15 +0000 |
| commit | b195ecb345132895e0564e4e849196d137e24cdd (patch) | |
| tree | e93ad45948aabbccfd4efca9aa508a5c93fc9459 /src/Haddock/Backends/Xhtml.hs | |
| parent | 82702b85d29a7b45f53cb7da2e986ae477e985ff (diff) | |
make module list use new collapsers
Diffstat (limited to 'src/Haddock/Backends/Xhtml.hs')
| -rw-r--r-- | src/Haddock/Backends/Xhtml.hs | 12 |
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., |