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.

1 files changed, 11 insertions, 0 deletions

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
+           }