diff --git a/haddock-api/src/Haddock/Backends/Xhtml/Layout.hs b/haddock-api/src/Haddock/Backends/Xhtml/Layout.hs index e020b90991..2d0bf7a398 100644 --- a/haddock-api/src/Haddock/Backends/Xhtml/Layout.hs +++ b/haddock-api/src/Haddock/Backends/Xhtml/Layout.hs @@ -199,7 +199,7 @@ subInstances :: Qualification -> [(SubDecl,Located DocName)] -> Html subInstances qual nm lnks splice = maybe noHtml wrap . instTable where - wrap contents = subSection (collapseDetails id_ DetailsOpen (summary +++ contents)) + wrap contents = subSection (collapseDetails id_ DetailsClosed (summary +++ contents)) instTable = subTableSrc qual lnks splice subSection = thediv ! [theclass "subs instances"] summary = thesummary << "Instances" diff --git a/html-test/ref/Bug26.html b/html-test/ref/Bug26.html index 376c2ce6b3..62a3af3166 100644 --- a/html-test/ref/Bug26.html +++ b/html-test/ref/Bug26.html @@ -151,7 +151,7 @@ >