blob: 324e817947d19ab36c9e7852030ee2f58268e177 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
T5837.hs:8:6: error:
Reduction stack overflow; size = 51
When simplifying the following type:
TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
a))))))))))))))))))))))))
~ (TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
a))))))))))))))))))))))))),
TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
(TF
Int))))))))))))))))))))))))))
Use -freduction-depth=0 to disable this check
(any upper bound you could choose might fail unpredictably with
minor updates to GHC, so disabling the check is recommended if
you're sure that type checking should terminate)
In the ambiguity check for âtâ
In the type signature:
t :: (a ~ TF (a, Int)) => Int
|