wip debug

This commit is contained in:
swrup 2026-02-07 00:11:25 +01:00
parent 08699487f1
commit f1936f150d
166 changed files with 17619 additions and 15 deletions

View file

@ -1,34 +0,0 @@
(* TODO
? have a currency agnostic amount_lib.ml and specialize amount.ml to Config.currency *)
type sign =
| Sign_plus
| Sign_minus
type t = private {
sign: sign option;
currency: string;
value: Int64.t;
fraction: Int32.t;
}
val make :
sign:sign option ->
currency:string ->
value:Int64.t ->
fraction:Int32.t ->
(t, string) result
val pp : Format.formatter -> t -> unit
val to_string : t -> string
val of_string : string -> (t, string) result
val currency_len : int
val jsont : t Jsont.t
(* only for encoding *)
val bin : t Bin.t
val bin_nbo : t Bin.t
(* TODO
dummy value to use as placeholder for WIP *)
val dummy_value : t