type t = {symbol : string;Currency Symbol
*)unit : string;Currency Unit Name
*)value : Qv.t;Scale Value in Rational
*)}Types
Scale Representation
Almost every currency has a unit value and sub unit values e.g. Pound is unit value for GBP with a scale of 1 to 1 Penny is sub unit value for GBP with scale of 100 to 1.
include Ppx_compare_lib.Comparable.S with type t := tval compare : t Base__Ppx_compare_lib.compareval showable_to_yojson : showable -> Yojson.Safe.tval showable_of_yojson :
Yojson.Safe.t ->
showable Ppx_deriving_yojson_runtime.error_orval pp_showable :
Ppx_deriving_runtime.Format.formatter ->
showable ->
Ppx_deriving_runtime.unitval show_showable : showable -> Ppx_deriving_runtime.stringval sexp_of_showable : showable -> Sexplib0.Sexp.tval showable_of_sexp : Sexplib0.Sexp.t -> showableConstruction
Construct exchange rate, e.g. make_scale "GBP" "penny" Utils.make_q("100/1")
val check_scale : Qv.t -> boolRequired scale to be position
val to_showable_json : t -> stringConvert t to showable rep