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

add json.ml; add test.ml; timestamp jsont

Browse source
This commit is contained in:
Swrup 2025-10-03 18:14:17 +02:00
parent 04bb29b30c
commit 724a3d2b68
8 changed files with 89 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/mte.ml
View file

@ -14,9 +14,10 @@
along with this program. If not, see <https://www.gnu.org/licenses/>. *)
let error_detail ?hint _status =
let open Types.ErrorDetail in
let open Types.Error_detail in
let open Json in
let code = -1 in
let s = to_string (make code hint) in
let s = encode_exn Error_detail.jsont { code; hint } in
s
module Respond_with = struct