blob: fe24adc4e45fa6ea12ed2b465a1c496394fb222f (
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
|
tcfail043.hs:38:17: error:
No instance for (Ord_ a0) arising from a use of ‘gt’
The type variable ‘a0’ is ambiguous
Relevant bindings include
bs :: [a0] (bound at tcfail043.hs:38:8)
a :: a0 (bound at tcfail043.hs:38:6)
search :: a0 -> [a0] -> Bool (bound at tcfail043.hs:37:1)
Potential instances:
instance Ord_ Int -- Defined at tcfail043.hs:34:10
In the expression: gt (hd bs) a
In the expression:
if gt (hd bs) a then
False
else
if eq a (hd bs) then True else search a (tl bs)
In the expression:
\ a bs
-> if gt (hd bs) a then
False
else
if eq a (hd bs) then True else search a (tl bs)
tcfail043.hs:40:25: error:
No instance for (Eq_ a0) arising from a use of ‘eq’
The type variable ‘a0’ is ambiguous
Relevant bindings include
bs :: [a0] (bound at tcfail043.hs:38:8)
a :: a0 (bound at tcfail043.hs:38:6)
search :: a0 -> [a0] -> Bool (bound at tcfail043.hs:37:1)
Potential instances:
instance Eq_ Int -- Defined at tcfail043.hs:20:10
instance Eq_ a => Eq_ [a] -- Defined at tcfail043.hs:23:10
In the expression: eq a (hd bs)
In the expression: if eq a (hd bs) then True else search a (tl bs)
In the expression:
if gt (hd bs) a then
False
else
if eq a (hd bs) then True else search a (tl bs)
|