module Data.Tuple.Tools (
  modifyFst
, modifySnd
) where

modifyFst :: (a -> b) -> (a, c) -> (b, c)
modifyFst f (x, y) = (f x, y)

modifySnd :: (a -> b) -> (c, a) -> (c, b)
modifySnd f (x, y) = (x, f y)