shithub: MicroHs

ref: ecd3c2ec78634f6a125d8d28d8ae2d04bce3ad04
dir: /lib/Data/Functor.hs/

View raw version 
module Data.Functor(module Data.Functor) where
import Primitives  -- for fixity

class Functor (f :: Type -> Type) where
  fmap :: forall a b . (a -> b) -> f a -> f b

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

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