Source file `cancel_request.ml`

1
2
3
4
5
6
7
8
9
10
11
open Import

let meth_ = "$/cancelRequest"

let t_of_yojson json =
  match json with
  | `Assoc fields -> Json.field_exn fields "id" Jsonrpc.Id.t_of_yojson
  | _ -> Json.error "invalid id" json
;;

let yojson_of_t id = `Assoc [ "id", Jsonrpc.Id.yojson_of_t id ]