From 04b314327ce039c354205495348c27547749ebda Mon Sep 17 00:00:00 2001 From: lyxia Date: Fri, 10 Nov 2017 10:20:13 -0500 Subject: [PATCH 1/2] Expand user-collapsible sections (#699) --- haddock-api/src/Haddock/Backends/Xhtml/DocMarkup.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/haddock-api/src/Haddock/Backends/Xhtml/DocMarkup.hs b/haddock-api/src/Haddock/Backends/Xhtml/DocMarkup.hs index e63667b08c..28e3d5022c 100644 --- a/haddock-api/src/Haddock/Backends/Xhtml/DocMarkup.hs +++ b/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 From 5112d0e3ca591aa8daf45de6e42fb6eaccf3e874 Mon Sep 17 00:00:00 2001 From: lyxia Date: Fri, 10 Nov 2017 13:53:18 -0500 Subject: [PATCH 2/2] Update tests with expanded user-collapsible sections --- html-test/ref/Bug335.html | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/html-test/ref/Bug335.html b/html-test/ref/Bug335.html index f21850455e..633ed4a8c7 100644 --- a/html-test/ref/Bug335.html +++ b/html-test/ref/Bug335.html @@ -67,7 +67,7 @@ >

ExF:

Expand

ExG:

Expand