@@ -52,8 +52,8 @@ catMaybes : List (Maybe a) -> List a
52catMaybes [] = []
52catMaybes [] = []
53catMaybes (x::xs) =
53catMaybes (x::xs) =
55− Left l => catMaybes xs
55+ Nothing => catMaybes xs
56− Right r => r :: catMaybes xs
56+ Just j => j :: catMaybes xs
58mapMaybe : (a -> Maybe b) -> List a -> List b
58mapMaybe : (a -> Maybe b) -> List a -> List b
59mapMaybe f [] = []
59mapMaybe f [] = []