swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

add timestamp.ml

Browse source 
WIP better time
  revert this?
This commit is contained in:
swrup 2025-11-28 16:57:48 +01:00
parent d760a54b61
commit d7d302bafa
10 changed files with 143 additions and 142 deletions
Download patch file Download diff file Expand all files Collapse all files

24
src/util.ml
View file

@ -1,27 +1,3 @@
(* -- Ptime -- *)
(* TODO have a Time.t = int64
-> avoid having conversion everywhere
-> avoid using Caqti_type.ptime *)
let ptime_to_int64 ptime = ptime |> Ptime.to_float_s |> Int64.of_float
let ptime_of_int64 i =
match Ptime.of_float_s (Int64.to_float i) with
| None -> Fmt.error "ptime_of_int64 error: `%Ld` is not a valid ptime" i
| Some ts -> Ok ts
let ptime_of_span_exn span =
match Ptime.of_span span with
| None -> Fmt.failwith "Ptime.of_span: not in the range [min;max]"
| Some p -> p
let ptime_add_span_exn p span =
match Ptime.add_span p span with
| None -> Fmt.failwith "Ptime.add_span: not in the range [min;max]"
| Some v -> v
(* -- *** -- *)
(* TODO bin
- no [Bin.of_string] ? *)
let bin_of_string bin s =