@@ -12,8 +12,6 @@ module Maybe (Maybe(..), maybe, isJust, isNothing, map) where
1212@docs map
1313-}
1414
15−import Basics (not, (.))
16−
1715{-| The Maybe datatype. Useful when a computation may or may not
1816result in a value (e.g. logarithm is defined only for positive
1917numbers).
@@ -49,7 +47,7 @@ isJust = maybe False (\_ -> True)
4947 isNothing Nothing == True
5048-}
5149isNothing : Maybe a -> Bool
52−isNothing = not . isJust
50+isNothing = maybe True (\_ -> False)
5351
5452{-| Transform the contents of a `Maybe` with a given function:
5553