Commit 0e209896 authored by simonpj's avatar simonpj
Browse files

Add test for Trac #1153

parent dae32485
......@@ -160,4 +160,4 @@ test('tcfail171', normal, compile_fail, [''])
test('tcfail172', normal, compile_fail, [''])
test('tcfail173', normal, compile_fail, [''])
test('tcfail174', normal, compile_fail, [''])
test('tcfail175', normal, compile_fail, [''])
-- Crashed GHC 6.6!
-- Trac #1153
module ShouldFail where
eval :: Int -> String -> String -> String
eval 0 root actual = evalRHS 0 root actual
evalRHS :: Int -> a
evalRHS 0 root actual = eval 0 root actual
tcfail175.hs:11:0:
The equation(s) for `evalRHS' have three arguments,
but its type `Int -> a' has only one
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