blob: d38e53dbff9f951c5e8c1f3f9db4cf741be98483 (
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
|
rebindable6.hs:106:17:
No instance for (HasSeq (IO a -> t0 -> IO b))
arising from a do statement
The type variable `t0' is ambiguous
Possible fix: add a type signature that fixes these type variable(s)
Possible fix:
add an instance declaration for (HasSeq (IO a -> t0 -> IO b))
In a stmt of a 'do' block: f
In the expression:
do { f;
Just (b :: b) <- g;
return b }
In an equation for `test_do':
test_do f g
= do { f;
Just (b :: b) <- g;
return b }
rebindable6.hs:107:17:
No instances for (HasBind (IO (Maybe b) -> (Maybe b -> t1) -> t0),
HasFail ([Prelude.Char] -> t1))
arising from a do statement
The type variables `t0', `t1' are ambiguous
Possible fix: add a type signature that fixes these type variable(s)
Possible fix:
add instance declarations for
(HasBind (IO (Maybe b) -> (Maybe b -> t1) -> t0),
HasFail ([Prelude.Char] -> t1))
In a stmt of a 'do' block: Just (b :: b) <- g
In the expression:
do { f;
Just (b :: b) <- g;
return b }
In an equation for `test_do':
test_do f g
= do { f;
Just (b :: b) <- g;
return b }
rebindable6.hs:108:17:
No instance for (HasReturn (b -> t1))
arising from a use of `return'
The type variable `t1' is ambiguous
Possible fix: add a type signature that fixes these type variable(s)
Possible fix: add an instance declaration for (HasReturn (b -> t1))
In a stmt of a 'do' block: return b
In the expression:
do { f;
Just (b :: b) <- g;
return b }
In an equation for `test_do':
test_do f g
= do { f;
Just (b :: b) <- g;
return b }
|