Lots of error message wibbling, following the
[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'