Fold integer-gmp.git into ghc.git (re #8545)
[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