shithub: MicroHs

ref: 6ce8da5b4d9ce80140c512a4eb7a9711b2cb4e7f
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)