ref: 5beab480f8405138d16dd1bffcd56d67cbc2335e
dir: /lib/Control/Arrow.hs/
module Control.Arrow(module Control.Arrow) where 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)