ref: b1b1dec53c14e3c4778d8b795f6f9d981de7302d
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)