functor module

src/Functor.hs

@@ -21,6 +21,8 @@ import Data.Functor (
   , (<$>)
   )
 
+infixl 4 $>
+
 ($>) :: Functor f => f a -> b -> f b
 ($>) = flip (<$)
 

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