simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

add CCPair.make

Browse source
This commit is contained in:
Simon Cruanes 2016-02-21 00:13:40 +01:00
parent 1cf81c0031
commit bb37ea469d
2 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/core/CCPair.ml
View file

@ -5,6 +5,8 @@
type ('a,'b) t = ('a * 'b)
let make x y = x,y
let map1 f (x,y) = f x,y
let map2 f (x,y) = x,f y

4
src/core/CCPair.mli
View file

@ -5,6 +5,10 @@
type ('a,'b) t = ('a * 'b)
val make : 'a -> 'b -> ('a, 'b) t
(** Make a tuple from its components
@since NEXT_RELEASE *)
val map1 : ('a -> 'b) -> ('a * 'c) -> ('b * 'c)
val map2 : ('a -> 'b) -> ('c * 'a) -> ('c * 'b)