simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-09 12:45:34 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

add breaking space in CCFormat.{pair,triple,quad}

Browse source
This commit is contained in:
Simon Cruanes 2016-01-20 14:19:47 +01:00
parent b000355a74
commit 3cfe3767fc
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/core/CCFormat.ml
View file

@ -99,13 +99,13 @@ let opt pp fmt x = match x with
| Some x -> Format.fprintf fmt "some %a" pp x
let pair ppa ppb fmt (a, b) =
Format.fprintf fmt "(%a, %a)" ppa a ppb b
Format.fprintf fmt "(%a,@ %a)" ppa a ppb b
let triple ppa ppb ppc fmt (a, b, c) =
Format.fprintf fmt "(%a, %a, %a)" ppa a ppb b ppc c
Format.fprintf fmt "(%a,@ %a,@ %a)" ppa a ppb b ppc c
let quad ppa ppb ppc ppd fmt (a, b, c, d) =
Format.fprintf fmt "(%a, %a, %a, %a)" ppa a ppb b ppc c ppd d
Format.fprintf fmt "(%a,@ %a,@ %a,@ %a)" ppa a ppb b ppc c ppd d
let map f pp fmt x =
pp fmt (f x);