Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Maybe/CatMaybes.hs
module Maybe where catMaybes :: [Maybe a] -> [a] catMaybes [] = [] catMaybes (Nothing:xs) = catMaybes xs catMaybes (Just x:xs) = x : catMaybes xs
