shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Add isNothing

--- a/lib/Data/Maybe.hs

+++ b/lib/Data/Maybe.hs

@@ -79,6 +79,10 @@

 isJust Nothing = False

 isJust (Just _) = True

+isNothing :: forall a . Maybe a -> Bool

+isNothing Nothing = True

+isNothing (Just _) = False

+

 mapMaybe :: forall a b . (a -> Maybe b) -> [a] -> [b]

 mapMaybe _ [] = []

 mapMaybe f (a:as) =

-- 

⑨