diff options
| author | Mark Lentczner <markl@glyphic.com> | 2010-07-30 20:19:40 +0000 |
|---|---|---|
| committer | Mark Lentczner <markl@glyphic.com> | 2010-07-30 20:19:40 +0000 |
| commit | 113da86766fdb3ebb765c3b62558d8f6012c112d (patch) | |
| tree | 143b0dee191ccd502b8abe6d631e2dab5497c5f5 /src/Haddock/Backends | |
| parent | b49531de991ef063860e821b6abf8e13f2045c26 (diff) | |
improved synopsis drawer: on click, not hover
Diffstat (limited to 'src/Haddock/Backends')
| -rw-r--r-- | src/Haddock/Backends/Xhtml.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs index eb06e499..eae90bd4 100644 --- a/src/Haddock/Backends/Xhtml.hs +++ b/src/Haddock/Backends/Xhtml.hs @@ -504,10 +504,10 @@ ifaceToHtml maybe_source_url maybe_wiki_url iface unicode | no_doc_at_all = noHtml | otherwise = divSynposis $ - sectionName << "Synopsis" +++ + paragraph ! collapser "syn" "caption" << "Synopsis" +++ shortDeclList ( mapMaybe (processExport True linksInfo unicode) exports - ) + ) ! ([identifier "syn"] ++ collapser "syn" "hide") -- if the documentation doesn't begin with a section header, then -- add one ("Documentation"). |