diff --git a/src/Applicative.hs b/src/Applicative.hs index 2bdaab0be..34da016d1 100644 --- a/src/Applicative.hs +++ b/src/Applicative.hs @@ -33,4 +33,3 @@ liftAA2 = liftA2 . liftA2 (<<*>>) :: (Applicative f, Applicative g) => f (g (a -> b)) -> f (g a) -> f (g b) (<<*>>) = liftA2 (<*>) - diff --git a/src/Functor.hs b/src/Functor.hs index 03bbf01fe..80683396e 100644 --- a/src/Functor.hs +++ b/src/Functor.hs @@ -23,6 +23,7 @@ import Data.Functor ( ) import Data.Function (flip) +import Data.Function ((.)) infixl 4 $>