@@ -608,6 +608,11 @@ module Arrays where
608 filter _ [] = []
608 filter _ [] = []
609 filter p (x:xs) | p x = x : filter p xs
609 filter p (x:xs) | p x = x : filter p xs
610 filter p (_:xs) = filter p xs
610 filter p (_:xs) = filter p xs
612+ find :: forall a. (a -> Boolean) -> [a] -> Maybe a
614+ find p (x:xs) | p x = Just x
615+ find p (_:xs) = find p xs
612 isEmpty :: forall a. [a] -> Boolean
617 isEmpty :: forall a. [a] -> Boolean
613 isEmpty [] = true
618 isEmpty [] = true
@@ -1140,3 +1145,10 @@ module ST where
1140 \ return f;\
1145 \ return f;\
1141 \}" :: forall a r. (forall h. Eff (st :: ST h | r) (STArray h a)) -> Eff r [a]
1146 \}" :: forall a r. (forall h. Eff (st :: ST h | r) (STArray h a)) -> Eff r [a]
1153+ toEnum :: Number -> Maybe a
1154+ fromEnum :: a -> Number