package timedesc

  1. Overview
  2. Docs

Source file constants.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
include Time_zone_constants

let timestamp_min : Span.t =
  let x = Ptime.min |> Ptime_utils.timestamp_of_ptime in
  Span.(ceil (x + make ~s:(Int64.of_int greatest_neg_tz_offset_s) ()))

let timestamp_max : Span.t =
  let x = Ptime.max |> Ptime_utils.timestamp_of_ptime in
  Span.(
    floor (x - make_small ~s:1 () - make_small ~s:greatest_pos_tz_offset_s ()))

let min_year = 0

let max_year = 9999

let one_day = Span.For_human'.make_exn ~days:1 ()
OCaml

Innovation. Community. Security.