Source file `response.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
(* Copyright (c) 2026, Cargocut and the Pidgio developers.
   All rights reserved.

   SPDX-License-Identifier: BSD-3-Clause *)

let result req tail = Util.jsonrpc ?id:(Request.id req) tail

let from_error req error =
  let data = Error.to_pidgin error in
  result req [ "error", data ]
;;

let from_value req value = result req [ "result", value ]