From b3674708d48d4528c8ac587823885cf6531714e2 Mon Sep 17 00:00:00 2001
From: Stephen Diehl <stephen.m.diehl@gmail.com>
Date: Sat, 9 Apr 2016 15:14:21 -0400
Subject: [PATCH] functor module

---
 src/Functor.hs   | 2 ++
 src/Protolude.hs | 1 +
 2 files changed, 3 insertions(+)

diff --git a/src/Functor.hs b/src/Functor.hs
index 11addfc7b..fcb82a3ff 100644
--- a/src/Functor.hs
+++ b/src/Functor.hs
@@ -21,6 +21,8 @@ import Data.Functor (
   , (<$>)
   )
 
+infixl 4 $>
+
 ($>) :: Functor f => f a -> b -> f b
 ($>) = flip (<$)
 
diff --git a/src/Protolude.hs b/src/Protolude.hs
index a82763e83..c6c4b8a37 100644
--- a/src/Protolude.hs
+++ b/src/Protolude.hs
@@ -20,6 +20,7 @@ import qualified Show as X
 import qualified Bool as X
 import qualified Debug as X
 import qualified Monad as X
+import qualified Functor as X
 import qualified Applicative as X
 
 -- Maybe'ized version of partial functions