Improve error messages around kind mismatches.
[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'