shithub: MicroHs

ref: 1de3655e1166b32f66470fb778f062407ddf1dff
dir: /lib/Control/Arrow.hs/

View raw version 
module Control.Arrow(module Control.Arrow) where
import Prelude()              -- do not import Prelude

first :: forall a b c . (a -> c) -> (a, b) -> (c, b)
first f (a, b) = (f a, b)

second :: forall a b c . (b -> c) -> (a, b) -> (a, c)
second f (a, b) = (a, f b)