mte/src/amount.mli

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