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

(* dependency cycle with config.ml ...
val make_config_currency :
  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
(* [caqti] is in pg_type.ml *)