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

use exchange_pub valid at this time

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

5
src/time.ml
View file

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