Fix IntMap bug.

This commit is contained in:
Danila Fedorin 2019-05-28 22:34:31 -07:00
parent d3f34ac13c
commit 1dd4d1af70

View File

@ -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