diff options
3 files changed, 15 insertions, 0 deletions
diff --git a/testsuite/tests/haddock/should_compile_flag_haddock/T17652.hs b/testsuite/tests/haddock/should_compile_flag_haddock/T17652.hs new file mode 100644 index 0000000000..9b0cef2522 --- /dev/null +++ b/testsuite/tests/haddock/should_compile_flag_haddock/T17652.hs @@ -0,0 +1,8 @@ +module T17652 where + +data X + = B + -- | x + !Int + -- | y + String diff --git a/testsuite/tests/haddock/should_compile_flag_haddock/T17652.stderr b/testsuite/tests/haddock/should_compile_flag_haddock/T17652.stderr new file mode 100644 index 0000000000..e1e5cf5c25 --- /dev/null +++ b/testsuite/tests/haddock/should_compile_flag_haddock/T17652.stderr @@ -0,0 +1,6 @@ + +==================== Parser ==================== +module T17652 where +data X = B !Int " x" String " y" + + diff --git a/testsuite/tests/haddock/should_compile_flag_haddock/all.T b/testsuite/tests/haddock/should_compile_flag_haddock/all.T index b35af797ce..5dc5df090c 100644 --- a/testsuite/tests/haddock/should_compile_flag_haddock/all.T +++ b/testsuite/tests/haddock/should_compile_flag_haddock/all.T @@ -62,3 +62,4 @@ test('T17544_kw', normal, compile, ['-haddock -Winvalid-haddock -ddump-parsed-as test('haddockExtraDocs', normal, compile, ['-haddock -Winvalid-haddock']) test('haddockTySyn', normal, compile, ['-haddock -Winvalid-haddock -ddump-parsed']) test('T8944', normal, compile, ['-haddock -Winvalid-haddock -ddump-parsed']) +test('T17652', normal, compile, ['-haddock -Winvalid-haddock -ddump-parsed']) |