testsuite/tests/typecheck/should_fail/tcfail175.hs


1
2
3
4
5
6
7
8
9
10
11
12


-- 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