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

enforce keys time constraint

Browse source
This commit is contained in:
swrup 2026-02-26 17:04:48 +01:00
parent a376fc584f
commit c879f57dc9
4 changed files with 19 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/time.ml
View file

@ -97,6 +97,10 @@ module Timestamp = struct
let never = uint64_max
let zero = 0L
let compare = Int64.unsigned_compare
let gt a b = compare a b > 0
let geq a b = compare a b >= 0
let lt a b = compare a b < 0
let leq a b = compare a b <= 0
let min a b = if compare a b < 0 then a else b
let max a b = if compare a b > 0 then a else b