ref: 5ce67d1cbf5158a34d9542bfbd0326af592a3aa1
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)