Commits

Yaron Minsky committed 79ff395

added pretty-printer for zone

  • Participants
  • Parent commits 1d72cb0

Comments (0)

Files changed (2)

base/core/lib/zone.ml

 let digest zone = zone.file_digest
 
 let name zone = zone.name
+
+let pp ppf t = Format.fprintf ppf "%s" (name t)
+let () = Pretty_printer.register "Core.Zone.pp"
+

base/core/lib/zone.mli

    is not intended to be called by most client code.  Use the high level functions
    provided in Time instead. *)
 val shift_epoch_time : t -> [`Local | `UTC] -> float -> float
+
+val pp : Format.formatter -> t -> unit
+