ref: 32a97fd5217ed6b2b312f6b634ca316f8dc7e0fe
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)