From e5bd27b5edf533054513871dc475a54a8b1bee23 Mon Sep 17 00:00:00 2001 From: Mateusz Kowalczyk Date: Mon, 24 Feb 2014 22:01:11 +0000 Subject: Change rendering of duplicate record field docs See Haddock Trac #195. We now change this behaviour to only rendering the documentation attached to the first instance of a duplicate field. Perhaps we could improve this by rendering the first instance that has documentation attached to it but for now, we'll stick with this. --- html-test/ref/Bug195.html | 179 ++++++++++++++++++++++++++++++++++++++++++++++ html-test/src/Bug195.hs | 11 +++ 2 files changed, 190 insertions(+) create mode 100644 html-test/ref/Bug195.html create mode 100644 html-test/src/Bug195.hs (limited to 'html-test') diff --git a/html-test/ref/Bug195.html b/html-test/ref/Bug195.html new file mode 100644 index 00000000..9ab7c3b0 --- /dev/null +++ b/html-test/ref/Bug195.html @@ -0,0 +1,179 @@ + +Bug195

 

Safe HaskellSafe-Inferred

Bug195

Documentation

data T

Constructors

A 

Fields

someField :: ()

Doc for someField of A

someOtherField :: ()

Doc for someOtherField of A

B 

Fields

someField :: ()

Doc for someField of A

someOtherField :: ()

Doc for someOtherField of A

C 

Fields

someField :: ()

Doc for someField of A

someOtherField :: ()

Doc for someOtherField of A

diff --git a/html-test/src/Bug195.hs b/html-test/src/Bug195.hs new file mode 100644 index 00000000..14440e8d --- /dev/null +++ b/html-test/src/Bug195.hs @@ -0,0 +1,11 @@ +module Bug195 where + +data T = A { someField :: () -- ^ Doc for someField of A + , someOtherField :: () -- ^ Doc for someOtherField of A + } + | B { someField :: () -- ^ Doc for someField of B + , someOtherField :: () -- ^ Doc for someOtherField of B + } + | C { someField :: () -- ^ Doc for someField of C + , someOtherField :: () -- ^ Doc for someOtherField of C + } -- cgit v1.2.3