blob: 7add7e39bcf0aa34f033d75bc89ac1b89716b989 (
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:
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 the type signature for âtâ:
t :: forall a. (a ~ TF (a, Int)) => Int
In the type signature for âtâ: t :: (a ~ TF (a, Int)) => Int
|