···124124 let to_json t =
125125 match Jsont.Json.encode jsont t with
126126 | Ok json -> json
127127- | Error e -> failwith (Fmt.str "Failed to encode command: %s" e)
127127+ | Error e -> Fmt.failwith "Failed to encode command: %s" e
128128129129 (* Common commands *)
130130 let qmp_capabilities = make "qmp_capabilities"
+1-1
lib/vm.ml
···260260 | Ok s ->
261261 Log.debug (fun m -> m "Sending: %s" s);
262262 write_line t s
263263- | Error e -> failwith (Fmt.str "Failed to encode command: %s" e)
263263+ | Error e -> Fmt.failwith "Failed to encode command: %s" e
264264265265 let receive_response t =
266266 let rec loop () =