diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-07-28 17:01:38 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-07-28 17:01:38 +0100 |
| commit | 5970bafbc8f0afc161b7afdd3a19e597769f16af (patch) | |
| tree | 21f57c7063f9dc9056fd0b02b740a01a6afc080f /testsuite/tests/driver/T8101.hs | |
| parent | 1facc19c0526b3a11a73dc3f83b6262a7b795096 (diff) | |
| download | haskell-5970bafbc8f0afc161b7afdd3a19e597769f16af.tar.gz | |
Add a test for #8101
Diffstat (limited to 'testsuite/tests/driver/T8101.hs')
| -rw-r--r-- | testsuite/tests/driver/T8101.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/testsuite/tests/driver/T8101.hs b/testsuite/tests/driver/T8101.hs new file mode 100644 index 0000000000..d7bcc1bd5e --- /dev/null +++ b/testsuite/tests/driver/T8101.hs @@ -0,0 +1,8 @@ + +module A where + +data ABC = A | B | C + +abc :: ABC -> Int +abc x = case x of + A -> 1 |