94a78a93b01cf81ddbbb58e5707995cece8e61af
[ghc.git] / testsuite / tests / typecheck / should_fail / tcfail168.hs
1
2 -- Test trac #719 (shouldn't give the entire do block in the error message)
3
4 module ShouldFail where
5
6 foo = do
7 putChar
8 putChar 'a'
9 putChar 'a'
10 putChar 'a'
11 putChar 'a'
12 putChar 'a'
13 putChar 'a'
14 putChar 'a'
15 putChar 'a'
16 putChar 'a'
17 putChar 'a'
18 putChar 'a'
19 putChar 'a'
20 putChar 'a'
21 putChar 'a'
22 putChar 'a'
23 putChar 'a'
24 putChar 'a'
25 putChar 'a'
26 putChar 'a'
27 putChar 'a'
28 putChar 'a'
29 putChar 'a'
30 putChar 'a'
31 putChar 'a'
32 putChar 'a'
33 putChar 'a'
34 putChar 'a'
35 putChar 'a'
36 putChar 'a'
37 putChar 'a'
38 putChar 'a'
39 putChar 'a'
40 putChar 'a'
41 putChar 'a'
42 putChar 'a'
43 putChar 'a'
44 putChar 'a'
45 putChar 'a'
46 putChar 'a'
47 putChar 'a'
48 putChar 'a'
49 putChar 'a'
50 putChar 'a'
51 putChar 'a'
52 putChar 'a'
53 putChar 'a'
54 putChar 'a'
55 putChar 'a'
56 putChar 'a'
57 putChar 'a'
58 putChar 'a'
59 putChar 'a'
60 putChar 'a'
61 putChar 'a'
62 putChar 'a'
63 putChar 'a'
64 putChar 'a'
65 putChar 'a'
66