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 jsont : t Jsont.t
val bin : t Bin.t
val bin_nbo : t Bin.t
(* [caqti] is in pg_type.ml *)