diff --git a/ocaml/xapi/api_server.ml b/ocaml/xapi/api_server.ml index a6016b5805b..711655148b3 100644 --- a/ocaml/xapi/api_server.ml +++ b/ocaml/xapi/api_server.ml @@ -346,7 +346,7 @@ let jsoncallback req bio _ = Http_svr.response_str req ~hdrs:[(Http.Hdr.content_type, "application/json")] fd - (Jsonrpc.string_of_response + (Jsonrpc.string_of_response ~version:Jsonrpc.V2 (Rpc.failure (Rpc.Enum (List.map (fun s -> Rpc.String s) (err :: params))) )