From 547aca5af46151d41a34a9b3dfb0e0d71fc707fa Mon Sep 17 00:00:00 2001
From: Stephen Diehl <stephen.m.diehl@gmail.com>
Date: Fri, 14 Oct 2016 17:21:57 +0100
Subject: [PATCH] fix nested functor composition

---
 src/Applicative.hs | 1 -
 src/Functor.hs     | 1 +
 2 files changed, 1 insertion(+), 1 deletion(-)

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 $>