blob: 09e7dc3c9bdb5f6223a5494a5b523f0ea6064669 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
-- Crashed GHC 6.6!
-- #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
|