Source file `timedesc_tzdb.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
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 = None

let compressed = Some Tzdb_compressed.s