summaryrefslogtreecommitdiff
path: root/testsuite/tests/haddock/should_compile_flag_haddock/haddockA036.hs
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/tests/haddock/should_compile_flag_haddock/haddockA036.hs')
-rw-r--r--testsuite/tests/haddock/should_compile_flag_haddock/haddockA036.hs19
1 files changed, 19 insertions, 0 deletions
diff --git a/testsuite/tests/haddock/should_compile_flag_haddock/haddockA036.hs b/testsuite/tests/haddock/should_compile_flag_haddock/haddockA036.hs
new file mode 100644
index 0000000000..02dd1f9022
--- /dev/null
+++ b/testsuite/tests/haddock/should_compile_flag_haddock/haddockA036.hs
@@ -0,0 +1,19 @@
+module ConstructorFields where
+
+data Foo
+ = Bar Int String -- ^ doc on `Bar` constructor
+
+ | Baz -- ^ doc on the `Baz` constructor
+ Int -- ^ doc on the `Int` field of `Baz`
+ String -- ^ doc on the `String` field of `Baz`
+
+ | Int :+ String -- ^ doc on the `:+` constructor
+
+ | Int -- ^ doc on the `Int` field of the `:*` constructor
+ :* -- ^ doc on the `:*` constructor
+ String -- ^ doc on the `String` field of the `:*` constructor
+
+ | Boo { x :: () } -- ^ doc on the `Boo` record constructor
+
+ | Boa -- ^ doc on the `Boa` record constructor
+ { y :: () }