Bump `base` version to 4.9.0.0 (closes #11026)
[ghc.git] / testsuite / tests / typecheck / should_fail / tcfail185.hs
1 -- See Trac #1606
2
3 module ShouldFail where
4
5 f :: Int -> Int -> Bool -> Bool -> Int -> Int
6 f a b = \ x y -> let { y1 = y; y2 = y1; y3 = y2; y4 = y3; y5 = y4;
7 y6 = y5; y7 = y6 } in x
8
9
10
11
12
13