shithub: MicroHs

ref: 418f23827bbdf375c0129a2f4a5ec65435a44c33
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)