Prettier output of error message for invalid json

tarides · Apr 2, 2024 · baff235 · baff235
1 parent b3dac5b
commit baff235
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/lib/contributions.ml b/lib/contributions.ml
@@ -133,8 +133,9 @@ let of_json ~period:(from, to_) ~user json =
   let* json =
     match Json.t_of_yojson json with
     | x -> Ok x
-    | exception Ppx_yojson_conv_lib.Yojson_conv.Of_yojson_error (exn, _) ->
-        Error (`Msg (Printexc.to_string exn))
+    | exception Ppx_yojson_conv_lib.Yojson_conv.Of_yojson_error (Failure e, _)
+      ->
+        Error (`Msg e)
   in
   match json.data with
   | Some data ->