From 113da86766fdb3ebb765c3b62558d8f6012c112d Mon Sep 17 00:00:00 2001
From: Mark Lentczner <markl@glyphic.com>
Date: Fri, 30 Jul 2010 20:19:40 +0000
Subject: improved synopsis drawer: on click, not hover
---
src/Haddock/Backends/Xhtml.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
(limited to 'src/Haddock')
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").
--
cgit v1.2.3