22 lines
373 B
OCaml
22 lines
373 B
OCaml
|
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
|