@@ -12,7 +12,7 @@ module Maybe (Maybe(..), maybe, isJust, isNothing, justs) where
1212@docs justs
1313-}
1414
15−import Basics (not, (.))
15+import Basics (not)
1616import List (foldr, (::))
1717
1818{-| The Maybe datatype. Useful when a computation may or may not
@@ -52,7 +52,7 @@ isJust = maybe False (\_ -> True)
5252 isNothing Nothing == True
5353-}
5454isNothing : Maybe a -> Bool
55−isNothing = not . isJust
55+isNothing m = not (isJust m)
5656
5757cons : Maybe a -> [a] -> [a]
5858cons mx xs = maybe xs (\x -> x :: xs) mx