module Gargantext.Utils.Tuple where import Data.Tuple (Tuple(..)) mapFst :: forall a b c. (a -> c) -> Tuple a b -> Tuple c b mapFst f (Tuple k v) = Tuple (f k) v