src/bin_sig.ml

@@ -5,7 +5,33 @@ open Bin_type
 (* TODO keep this?
    some of those are actuall ecdhe, or union of eddsa|ecdhe *)
 module Aliases = struct
-  module TimestampNBO = TimeAbsoluteNBO
+  module Timestamp = struct
+    type t = Time.Timestamp.t
+
+    let bin = Time.Timestamp.bin
+  end
+
+  module TimestampNBO = struct
+    type t = Time.Timestamp.t
+
+    let bin = Time.Timestamp.bin_nbo
+  end
+
+  module TimeRelative = struct
+    type t = Time.Relative.t
+
+    let bin = Time.Relative.bin
+  end
+
+  module TimeRelativeNBO = struct
+    type t = Time.Relative.t
+
+    let bin = Time.Relative.bin_nbo
+  end
+
+  (* TODO rm? *)
+  module TimeAbsolute = Timestamp
+  module TimeAbsoluteNBO = TimestampNBO
 
   module AmountNBO = struct
     type t = Amount.t