shithub: MicroHs

ref: 14b13a6bec40689de59601a8b5d9c1491a6a9b8d
dir: /lib/Data/Functor.hs/

View raw version 
module Data.Functor(module Data.Functor) where
import Prelude()              -- do not import Prelude
import Primitives  -- for fixity
import Data.Function

class Functor f where
  fmap :: forall a b . (a -> b) -> f a -> f b
  (<$) :: forall a b . a -> f b -> f a
  (<$) =  fmap . const

infixl 4 <$>
(<$>) :: forall f a b . Functor f => (a -> b) -> f a -> f b
(<$>) = fmap

void :: forall f a . Functor f => f a -> f ()
void = fmap (const ())