better if-not-match

This commit is contained in:
swrup 2026-02-12 11:25:57 +01:00
parent 98ba917cfb
commit 85b6dd38ae
167 changed files with 18509 additions and 109 deletions

View file

@ -0,0 +1,27 @@
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 *)