Expand user-collapsible sections (#699)

haddock-api/src/Haddock/Backends/Xhtml/DocMarkup.hs

@@ -167,7 +167,7 @@ hackMarkup fmt' h' =
         let id_ = makeAnchorId $ "ch:" ++ fromMaybe "noid:" nm ++ show n
             col' = collapseControl id_ "caption"
             summary = thesummary ! [ theclass "hide-when-js-enabled" ] << "Expand"
-            instTable contents = collapseDetails id_ DetailsClosed (summary +++ contents)
+            instTable contents = collapseDetails id_ DetailsOpen (summary +++ contents)
             lvs = zip [1 .. ] [h1, h2, h3, h4, h5, h6]
             getHeader = fromMaybe caption (lookup lvl lvs)
             subCaption = getHeader ! col' << markup fmt titl

html-test/ref/Bug335.html

@@ -67,7 +67,7 @@
 	  ><div class="doc"
 	  ><h3 class="caption details-toggle-control details-toggle" data-details-id="ch:f0"
 	    >ExF:</h3
-	    ><details id="ch:f0"
+	    ><details id="ch:f0" open="open"
 	    ><summary class="hide-when-js-enabled"
 	      >Expand</summary
 	      ><p
@@ -85,7 +85,7 @@
 	  ><div class="doc"
 	  ><h3 class="caption details-toggle-control details-toggle" data-details-id="ch:g0"
 	    >ExG:</h3
-	    ><details id="ch:g0"
+	    ><details id="ch:g0" open="open"
 	    ><summary class="hide-when-js-enabled"
 	      >Expand</summary
 	      ><pre class="screen"