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