add result.ml; polymorphic variant errors + refacto

src/time.mli

@@ -14,8 +14,6 @@ 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
 
@@ -33,8 +31,6 @@ module TimeAbsolute : sig
   val of_s : int64 -> t
   val of_ptime : Ptime.t -> t
   val bin : t Bin.t
-
-  (* TODO rename pp_dump *)
   val pp : Format.formatter -> t -> unit
 end
 
@@ -59,7 +55,5 @@ 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