ref: 405cddb412eae4af7cefb1091612290f875d5dc4
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)