Commit b218900c authored by simonpj's avatar simonpj
Browse files

[project @ 2005-12-09 19:16:58 by simonpj]

A minor, probably redundant, test
parent 3c472c10
......@@ -137,3 +137,4 @@ test('tcfail149', normal, compile_fail, [''])
test('tcfail150', normal, compile_fail, [''])
test('tcfail151', normal, compile_fail, [''])
test('tcfail152', normal, compile_fail, [''])
test('tcfail153', normal, compile_fail, [''])
-- Killed a test compiler, so I thought it was worth including
module ShouldFail where
f :: a -> [a]
f x = g x
where
g y = if y then [] else [y]
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