Source file `printers.ml`

1
2
3
4
5
6
7
8
9
10
let pad_int (c : char option) (x : int) : string =
  match c with
  | None -> string_of_int x
  | Some c -> if x < 10 then Printf.sprintf "%c%d" c x else string_of_int x

let wrap_to_sexp_into_pp_sexp (f : 'a -> Sexplib.Sexp.t) :
  Format.formatter -> 'a -> unit =
  fun formatter x -> Sexplib.Sexp.pp formatter (f x)

let pp_sexp = wrap_to_sexp_into_pp_sexp To_sexp.to_sexp