aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends
diff options
context:
space:
mode:
authorHerbert Valerio Riedel <hvr@gnu.org>2014-10-31 11:08:02 +0100
committerHerbert Valerio Riedel <hvr@gnu.org>2014-10-31 11:08:26 +0100
commit3937a98afe1bf1a215fd9115051af388e45b7299 (patch)
tree908e05f1e435ba3208fa44c8b0e8d5088d113edc /src/Haddock/Backends
parent3fb325a2ca6b6397905116024922d079447a2e08 (diff)
Collapse user-defined section by default (re #335)
Diffstat (limited to 'src/Haddock/Backends')
-rw-r--r--src/Haddock/Backends/Xhtml/DocMarkup.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Haddock/Backends/Xhtml/DocMarkup.hs b/src/Haddock/Backends/Xhtml/DocMarkup.hs
index 741e97e0..a1f56adf 100644
--- a/src/Haddock/Backends/Xhtml/DocMarkup.hs
+++ b/src/Haddock/Backends/Xhtml/DocMarkup.hs
@@ -150,8 +150,8 @@ hackMarkup fmt h = case h of
UntouchedDoc d -> markup fmt d
CollapsingHeader (Header lvl titl) par n nm ->
let id_ = makeAnchorId $ "ch:" ++ fromMaybe "noid:" nm ++ show n
- col' = collapseControl id_ True "caption"
- instTable = (thediv ! collapseSection id_ True [] <<)
+ col' = collapseControl id_ False "caption"
+ instTable = (thediv ! collapseSection id_ False [] <<)
lvs = zip [1 .. ] [h1, h2, h3, h4, h5, h6]
getHeader = fromMaybe caption (lookup lvl lvs)
subCation = getHeader ! col' << markup fmt titl