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..71b28d06 100644
--- a/src/secmod_eddsa.ml
+++ b/src/secmod_eddsa.ml
@@ -1,5 +1,6 @@
 (* TODO
    ! use lock
+   ! Scanf not thread-safe, replace with Angstrom(?)
    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