{-# LANGUAGE Trustworthy #-}
module Data.Functor
(
Functor(fmap),
(<$),
($>),
(<$>),
void,
) where
import Control.Monad
import GHC.Base (Functor(..))
infixl 4 <$>
(<$>) :: Functor f => (a -> b) -> f a -> f b
(<$>) = fmap
infixl 4 $>
($>) :: Functor f => f a -> b -> f b
($>) = flip (<$)