From 6cfdf079fb387592edbbdc742b4d2662939e97f8 Mon Sep 17 00:00:00 2001 From: swrup Date: Tue, 7 Oct 2025 15:01:52 +0200 Subject: [PATCH] --- src/binary_formats.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/binary_formats.ml b/src/binary_formats.ml index 38900c29..a2d31e35 100644 --- a/src/binary_formats.ml +++ b/src/binary_formats.ml @@ -12,7 +12,7 @@ let int64_size = 8 module Time = struct module Absolute = struct type t = { timestamp_us: int64 } - type tNbo = { abs_value_us__: int64 } + type t_nbo = { abs_value_us__: int64 } let size = int64_size @@ -32,7 +32,7 @@ module Time = struct module Relative = struct type t = { timestamp_us: int64 } - type tNbo = { relValue_us__: int64 } + type t_nbo = { rel_value_us__: int64 } let size = int64_size @@ -44,8 +44,8 @@ module Time = struct let nboBin = let open Bin in - record (fun relValue_us__ -> { relValue_us__ }) - |+ field beint64 (fun t -> t.relValue_us__) + record (fun rel_value_us__ -> { rel_value_us__ }) + |+ field beint64 (fun t -> t.rel_value_us__) |> sealr end end