From 445fd34229e1ae6be33ca0f29988fd0aac1a8355 Mon Sep 17 00:00:00 2001 From: lyxia Date: Fri, 10 Nov 2017 10:17:49 -0500 Subject: [PATCH 1/2] Hide instances by default (#698) --- haddock-api/src/Haddock/Backends/Xhtml/Layout.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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" From 551245a1e2a5efee31aefbbc898c57d843e7b4b8 Mon Sep 17 00:00:00 2001 From: lyxia Date: Fri, 10 Nov 2017 11:49:16 -0500 Subject: [PATCH 2/2] Update tests with instance lists collapsed by default --- html-test/ref/Bug26.html | 2 +- html-test/ref/Bug294.html | 4 ++-- html-test/ref/Bug613.html | 4 ++-- html-test/ref/Bug7.html | 4 ++-- html-test/ref/Hash.html | 2 +- html-test/ref/HiddenInstances.html | 4 ++-- html-test/ref/HiddenInstancesB.html | 4 ++-- html-test/ref/Instances.html | 12 ++++++------ html-test/ref/QuasiExpr.html | 4 ++-- .../ref/SpuriousSuperclassConstraints.html | 2 +- html-test/ref/Test.html | 2 +- html-test/ref/TypeFamilies.html | 18 +++++++++--------- html-test/ref/TypeFamilies2.html | 6 +++--- 13 files changed, 34 insertions(+), 34 deletions(-) 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