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 @@ >
Instances#

Instances
#

Instances

Instances
Instances
InstancesThe Bar class

Instances
Instances
Should be visible

Instances
Should be visible

Instances
Should be visible

Instances
Should be visible

Instances
Instances

Instances

Instances

Instances
Instances

Instances
Instances
Instances#

Instances

Instances
InstancesDoc for: data Y

Instances
InstancesDoc for: class Test a

Instances
Doc for: type family Foo a

Instances
Doc for: data family Bat a

Instances
Instances
#

Instances
#

Instances
Exported type

Instances
Exported type family

Instances
Exported data family

Instances