diff options
| author | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2020-07-31 18:48:54 +0300 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-08-01 04:23:04 -0400 |
| commit | e30fed6c6de1f881ce313900274294a793e42677 (patch) | |
| tree | 5a0b078a16a037d50306f9a8d5911d6e306dcb1f /testsuite/tests/haddock | |
| parent | 3b15dc3cfb1a33e3d4d952af62d4d0b841a731f5 (diff) | |
| download | haskell-e30fed6c6de1f881ce313900274294a793e42677.tar.gz | |
Test case for #17652
The issue was fixed by 19e80b9af252eee760dc047765a9930ef00067ec
Diffstat (limited to 'testsuite/tests/haddock')
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']) |