From b5d8065cb927a439d6dd6f568eb893d08ae4362f Mon Sep 17 00:00:00 2001 From: swrup Date: Thu, 12 Mar 2026 17:20:03 +0100 Subject: [PATCH] add todos --- src/amount.mli | 2 ++ src/secmod_eddsa.ml | 1 + src/time.mli | 6 ++++++ 3 files changed, 9 insertions(+) diff --git a/src/amount.mli b/src/amount.mli index 75b6773f..01496ff5 100644 --- a/src/amount.mli +++ b/src/amount.mli @@ -18,6 +18,8 @@ val make : (* fail on differents currencies *) val compare : t -> t -> int + +(* TODO rename pp_dump *) val pp : Format.formatter -> t -> unit val to_string : t -> string val of_string : string -> (t, string) result diff --git a/src/secmod_eddsa.ml b/src/secmod_eddsa.ml index 481a2762..6bf84922 100644 --- a/src/secmod_eddsa.ml +++ b/src/secmod_eddsa.ml @@ -1,5 +1,6 @@ (* TODO ! use lock + !? Scanf not thread-safe schedule tasks sign: check timestamps before signing *) (* IMPROVE diff --git a/src/time.mli b/src/time.mli index 7955f822..9247fe5e 100644 --- a/src/time.mli +++ b/src/time.mli @@ -14,6 +14,8 @@ module TimeRelative : sig val bin : t Bin.t val caqti : t Caqti_type.t val jsont : t Jsont.t + + (* TODO rename pp_dump *) val pp : Format.formatter -> t -> unit end @@ -30,6 +32,8 @@ module TimeAbsolute : sig val sub : t -> TimeRelative.t -> t val of_s : int64 -> t val of_ptime : Ptime.t -> t + + (* TODO rename pp_dump *) val pp : Format.formatter -> t -> unit end @@ -54,5 +58,7 @@ module Timestamp : sig val bin : t Bin.t val caqti : t Caqti_type.t val jsont : t Jsont.t + + (* TODO rename pp_dump *) val pp : Format.formatter -> t -> unit end