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

fix timestamp compare

Browse source
This commit is contained in:
swrup 2026-02-27 22:44:49 +01:00
parent 2e29cb0418
commit b1de214881
6 changed files with 15 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/time.ml
View file

@ -97,10 +97,6 @@ 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 equal 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