Tuple.purs 164 Bytes
Newer Older
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