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

split binary_types + clean up

Browse source
This commit is contained in:
swrup 2025-11-21 19:29:04 +01:00
parent 9fe1d76dc4
commit 0c5622324c
8 changed files with 449 additions and 515 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/util.ml
View file

@ -1,14 +1,8 @@
module Protocol_version = struct
(* TODO *)
(* libtool version format *)
let current = 0
let revision = 0
let age = 0
let v = Fmt.str "%d:%d:%d"
end
(* -- 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 =