Commit 5970bafb authored by's avatar
Browse files

Add a test for #8101

parent 1facc19c
module A where
data ABC = A | B | C
abc :: ABC -> Int
abc x = case x of
A -> 1
T8101.hs:7:9: Warning:
Pattern match(es) are non-exhaustive
In a case alternative:
Patterns not matched:
......@@ -378,3 +378,5 @@ test('T2507',
['$MAKE -s --no-print-directory T2507'])
test('T703', normal, run_command, ['$MAKE -s --no-print-directory T703'])
test('T8101', normal, compile, ['-Wall -fno-code'])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment