[commit: haddock] T6018-injective-type-families, adamse-D1033, ghc-head, wip/10268, wip/10313, wip/D548-master, wip/D548-master-2, wip/T10483, wip/T8584, wip/T9840, wip/api-ann-hstylit, wip/api-ann-hstylit-1, wip/api-ann-hstylit-2, wip/api-ann-hstylit-3, wip/api-ann-hstylit-4, wip/api-ann-hstylit-5, wip/ast-prepare-annotations, wip/ast-prepare-annotations-final, wip/ast-prepare-annotations-final2, wip/ast-prepare-annotations-final3, wip/ast-prepare-annotations-final4, wip/ast-prepare-annotations-final5, wip/ast-prepare-annotations-final6, wip/orf-reboot, wip/pattern-synonyms, wip/rae, wip/trac-9744: Collapse user-defined section by default (re #335) (3937a98)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/haddock

On branches: T6018-injective-type-families,adamse-D1033,ghc-head,wip/10268,wip/10313,wip/D548-master,wip/D548-master-2,wip/T10483,wip/T8584,wip/T9840,wip/api-ann-hstylit,wip/api-ann-hstylit-1,wip/api-ann-hstylit-2,wip/api-ann-hstylit-3,wip/api-ann-hstylit-4,wip/api-ann-hstylit-5,wip/ast-prepare-annotations,wip/ast-prepare-annotations-final,wip/ast-prepare-annotations-final2,wip/ast-prepare-annotations-final3,wip/ast-prepare-annotations-final4,wip/ast-prepare-annotations-final5,wip/ast-prepare-annotations-final6,wip/orf-reboot,wip/pattern-synonyms,wip/rae,wip/trac-9744
Link       : http://git.haskell.org/haddock.git/commitdiff/3937a98afe1bf1a215fd9115051af388e45b7299

>---------------------------------------------------------------

commit 3937a98afe1bf1a215fd9115051af388e45b7299
Author: Herbert Valerio Riedel <hvr at gnu.org>
Date:   Fri Oct 31 11:08:02 2014 +0100

    Collapse user-defined section by default (re #335)


>---------------------------------------------------------------

3937a98afe1bf1a215fd9115051af388e45b7299
 src/Haddock/Backends/Xhtml/DocMarkup.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Haddock/Backends/Xhtml/DocMarkup.hs b/src/Haddock/Backends/Xhtml/DocMarkup.hs
index 741e97e..a1f56ad 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