diff --git a/haddock-api/src/Haddock/Backends/Xhtml/Layout.hs b/haddock-api/src/Haddock/Backends/Xhtml/Layout.hs index 25d8b07a30..f171f8ddb3 100644 --- a/haddock-api/src/Haddock/Backends/Xhtml/Layout.hs +++ b/haddock-api/src/Haddock/Backends/Xhtml/Layout.hs @@ -203,7 +203,7 @@ subInstances :: Maybe Package -> Qualification -> [(SubDecl, Maybe Module, Located DocName)] -> Html subInstances pkg qual nm lnks splice = maybe noHtml wrap . instTable where - wrap contents = subSection (hdr +++ collapseDetails id_ DetailsOpen (summary +++ contents)) + wrap contents = subSection (hdr +++ collapseDetails id_ DetailsClosed (summary +++ contents)) instTable = subTableSrc pkg qual lnks splice subSection = thediv ! [theclass "subs instances"] hdr = h4 ! collapseControl id_ "instances" << "Instances" diff --git a/html-test/ref/Bug26.html b/html-test/ref/Bug26.html index 2a316f2dfe..36de60b8dc 100644 --- a/html-test/ref/Bug26.html +++ b/html-test/ref/Bug26.html @@ -153,7 +153,7 @@ >

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details

Instances

Instances details