Initial commit

lib/timedesc_augmented.ml

@@ -0,0 +1,34 @@
+include Timedesc
+
+type t = Timedesc.t
+
+module Time = struct
+  include Timedesc.Time
+
+  let pp = Timedesc.Time.pp_rfc3339 ()
+end
+
+module Span = struct
+  include Timedesc.Span
+end
+
+module Date = struct
+  include Timedesc.Date
+
+  type t = Timedesc.Date.t
+
+  let pp = Timedesc.Date.pp_rfc3339
+
+  module Ymd = struct
+    include Timedesc.Date.Ymd
+
+    type error = [ `Does_not_exist | `Invalid_year of int | `Invalid_month of int | `Invalid_day of int ]
+    [@@deriving show]
+  end
+end
+
+module Timestamp = struct
+  type t = Timedesc.Timestamp.t
+
+  let pp = Timedesc.Timestamp.pp
+end