simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2026-01-28 11:54:51 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

use boxes in CCFormat.Dump for tuples

Browse source
This commit is contained in:
Simon Cruanes 2017-03-14 11:16:11 +01:00
parent ef651342eb
commit 97abfe600e
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/core/CCFormat.ml
View file

@ -384,12 +384,12 @@ module Dump = struct
let option pp out x = match x with let option pp out x = match x with
| None -> Format.pp_print_string out "None" | None -> Format.pp_print_string out "None"
| Some x -> Format.fprintf out "Some %a" pp x | Some x -> Format.fprintf out "Some %a" pp x
let pair p1 p2 = within "(" ")" (pair p1 p2) let pair p1 p2 = within "(" ")" (hovbox (pair p1 p2))
let triple p1 p2 p3 = within "(" ")" (triple p1 p2 p3) let triple p1 p2 p3 = within "(" ")" (hovbox (triple p1 p2 p3))
let quad p1 p2 p3 p4 = within "(" ")" (quad p1 p2 p3 p4) let quad p1 p2 p3 p4 = within "(" ")" (hovbox (quad p1 p2 p3 p4))
let result' pok perror out = function let result' pok perror out = function
| Result.Ok x -> Format.fprintf out "(Ok %a)" pok x | Result.Ok x -> Format.fprintf out "(@[Ok %a@])" pok x
| Result.Error e -> Format.fprintf out "(Error %a)" perror e | Result.Error e -> Format.fprintf out "(@[Error %a@])" perror e
let result pok = result' pok string let result pok = result' pok string
let to_string = to_string let to_string = to_string
end end