35 lines
578 B
OCaml
35 lines
578 B
OCaml
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
|