summaryrefslogtreecommitdiff
path: root/testsuite/tests
diff options
context:
space:
mode:
authorJudah Jacobson <judah@users.noreply.github.com>2020-03-02 12:09:23 -0800
committerMarge Bot <ben+marge-bot@smart-cactus.org>2020-03-15 10:57:48 -0400
commitc35c545d3f32f092c52052349f741739a844ec0f (patch)
treeec3c157dbe12dd2d016e6d5c03161b063e899d6a /testsuite/tests
parent2e82465fff5851f00449131fdc8bacd3ca95f90f (diff)
downloadhaskell-c35c545d3f32f092c52052349f741739a844ec0f.tar.gz
Add a -no-haddock flag.
This flag undoes the effect of a previous "-haddock" flag. Having both flags makes it easier for build systems to enable Haddock parsing in a set of global flags, but then disable it locally for specific targets (e.g., third-party packages whose comments don't pass the validation in the latest GHC). I added the flag to expected-undocumented-flags.txt since `-haddock` was alreadyin that list.
Diffstat (limited to 'testsuite/tests')
-rw-r--r--testsuite/tests/haddock/should_compile_noflag_nohaddock/all.T1
-rw-r--r--testsuite/tests/haddock/should_compile_noflag_nohaddock/haddockD005.hs4
2 files changed, 5 insertions, 0 deletions
diff --git a/testsuite/tests/haddock/should_compile_noflag_nohaddock/all.T b/testsuite/tests/haddock/should_compile_noflag_nohaddock/all.T
index 1c68255e1b..c6e47b729b 100644
--- a/testsuite/tests/haddock/should_compile_noflag_nohaddock/all.T
+++ b/testsuite/tests/haddock/should_compile_noflag_nohaddock/all.T
@@ -11,3 +11,4 @@ test('haddockD001', normal, compile, [''])
test('haddockD002', normal, compile, [''])
test('haddockD003', normal, compile, [''])
test('haddockD004', normal, compile, [''])
+test('haddockD005', normal, compile, ['-haddock -no-haddock'])
diff --git a/testsuite/tests/haddock/should_compile_noflag_nohaddock/haddockD005.hs b/testsuite/tests/haddock/should_compile_noflag_nohaddock/haddockD005.hs
new file mode 100644
index 0000000000..b4c6c69abd
--- /dev/null
+++ b/testsuite/tests/haddock/should_compile_noflag_nohaddock/haddockD005.hs
@@ -0,0 +1,4 @@
+module F where
+
+type F = (Int -- | x
+ )