Fix IntMap bug.
This commit is contained in:
parent
d3f34ac13c
commit
1dd4d1af70
|
@ -32,6 +32,6 @@ intMapFind f m =
|
||||||
findHelper n l =
|
findHelper n l =
|
||||||
case l of
|
case l of
|
||||||
[] -> Nothing
|
[] -> Nothing
|
||||||
(x::xs) -> if f x then Just n else findHelper (n - 1) xs
|
(x::xs) -> if f x then Just n else findHelper (n + 1) xs
|
||||||
in
|
in
|
||||||
findHelper 0 m
|
findHelper 0 m
|
||||||
|
|
Loading…
Reference in New Issue
Block a user