1 import "Prelude" hiding (findFirst)
\r
3 findFirst :: (a -> <e> Maybe b) -> [a] -> Maybe b
\r
4 findFirst f l = loop 0
\r
9 | otherwise = match f (l!i) with
\r
11 Nothing -> loop (i+1)
\r
13 main = "Not to be executed"
\r
15 9:29-9:36: Side-effect a is forbidden here.