Tuple.purs 164 Bytes EditWeb IDE 1 2 3 4 5 6 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