Source file `timere_tzdb.ml`

1
2
3
4
5
6
7
8
9
10
11
module M = Map.Make (String)

type entry = {
  is_dst : bool;
  offset : int;
}

type table =
  (int64, Bigarray.int64_elt, Bigarray.c_layout) Bigarray.Array1.t * entry array

let db : table M.t = Marshal.from_string Tzdb_marshalled.s 0