Commit ab9d5ab0 authored by simonpj's avatar simonpj
Browse files

Test for Trac #2409

parent aad2d3c6
-- Trac #2409
module ShouldCompile where
f :: Int -> Int
f _ | () `seq` False = undefined
| otherwise = error "XXX"
g :: Int -> Int
g _ | () `seq` False = undefined
| otherwise = error "XXX"
......@@ -66,3 +66,4 @@ test('ds059', normal, compile, ['-W'])
test('ds060', expect_broken(322), compile, [''])
test('ds061', expect_broken(851), compile, [''])
test('ds062', normal, compile, [''])
test('T2409', normal, compile, [''])
Supports Markdown
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