swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

add amount

Browse source
This commit is contained in:
Swrup 2025-10-03 19:54:18 +02:00
parent 19a05f84e7
commit d5eaf6d92f
4 changed files with 98 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/json.ml
View file

@ -4,8 +4,6 @@ let encode_exn jsont v = Jsont_bytesrw.encode_string jsont v |> Result.get_ok
let encode jsont v = Jsont_bytesrw.encode_string jsont v
let decode jsont v = Jsont_bytesrw.decode_string jsont v
(* JavaScript numbers restricted to integers. *)
module Error_detail = struct
open Error_detail
@ -74,3 +72,6 @@ module Relative_time = struct
|> Jsont.Object.mem "t_s" number_or_forever_jsont ~enc:Fun.id
|> Jsont.Object.finish
end
let amount_jsont =
Jsont.of_of_string ~kind:"Amount" Amount.of_string ~enc:Amount.to_string