-- | Update the first component of a pair.
--
-- > first succ (1,"test") == (2,"test")
first :: (a -> a') -> (a, b) -> (a', b)
first = Arrow.first
first :: (a -> a') -> (a, b) -> (a', b)
first = Arrow.first
first = Arrow.first