simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-16 23:56:43 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

add CCPair.to_string

Browse source
This commit is contained in:
Fardale 2019-10-28 16:28:20 +01:00
parent 3dfbbeb3e3
commit f8bdceda14
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

@ -42,6 +42,8 @@ let compare f g (x1,y1) (x2,y2) =
let c = f x1 x2 in let c = f x1 x2 in
if c <> 0 then c else g y1 y2 if c <> 0 then c else g y1 y2
let to_string ?(sep=", ") a_to_string b_to_string (x,y) =
Printf.sprintf "%s%s%s" (a_to_string x) sep (b_to_string y)
type 'a printer = Format.formatter -> 'a -> unit type 'a printer = Format.formatter -> 'a -> unit

4
src/core/CCPair.mli
View file

@ -67,6 +67,10 @@ val equal : ('a -> 'a -> bool) -> ('b -> 'b -> bool) -> ('a * 'b) -> ('a * 'b) -
val compare : ('a -> 'a -> int) -> ('b -> 'b -> int) -> ('a * 'b) -> ('a * 'b) -> int val compare : ('a -> 'a -> int) -> ('b -> 'b -> int) -> ('a * 'b) -> ('a * 'b) -> int
val to_string : ?sep:string -> ('a -> string) -> ('b -> string) -> ('a * 'b) -> string
(** Print tuple in a string
@since NEXT_RELEASE *)
type 'a printer = Format.formatter -> 'a -> unit type 'a printer = Format.formatter -> 'a -> unit
val pp : ?sep:string -> 'a printer -> 'b printer -> ('a * 'b) printer val pp : ?sep:string -> 'a printer -> 'b printer -> ('a * 'b) printer