module Maybe where import CatMaybes mapMaybe :: (a -> Maybe b) -> [a] -> [b] mapMaybe f = catMaybes . map f