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

.

Browse source
This commit is contained in:
swrup 2026-02-03 16:52:11 +01:00
parent 4913d8ca76
commit c0ef1aede1
8 changed files with 47 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/timestamp.ml
View file

@ -1,6 +1,8 @@
type t = Ptime.t option
type span = Ptime.Span.t option
let epoch = Some Ptime.epoch
let diff a b =
match (a, b) with
| None, _ | _, None -> None
@ -79,7 +81,7 @@ let decode_int64 i = if i = Int64.max_int then None else Some (ptime_of_int64 i)
let bin = Bin.map Bin.neint64 decode_int64 encode_int64
let bin_nbo = Bin.map Bin.beint64 decode_int64 encode_int64
let caqti : Ptime.t option Caqti_type.t =
let caqti : t Caqti_type.t =
let encode v = Ok (encode_int64 v) in
let decode v = Ok (decode_int64 v) in
Caqti_type.custom ~encode ~decode Caqti_type.int64