From 3cfe3767fc77209209c1c88069dd93d48798707f Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Wed, 20 Jan 2016 14:19:47 +0100 Subject: [PATCH] add breaking space in `CCFormat.{pair,triple,quad}` --- src/core/CCFormat.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/core/CCFormat.ml b/src/core/CCFormat.ml index aefd40c3..3eb5f5a0 100644 --- a/src/core/CCFormat.ml +++ b/src/core/CCFormat.ml @@ -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);