QEMU/KVM virtual machine management via QMP
fix(lint): replace Printf/Format with Fmt across remaining packages
Migrate Printf.sprintf to Fmt.str, Format.fprintf to Fmt.pf, and
Format.pp_print_string to Fmt.string across bundle, gpt, hap, homebrew,
jsonwt, matter, mbr, meross, paseto, precommit, publicsuffix, qemu,
retry, sdnv, slack, sle, space-packet, spake2, sqlite, squashfs, tar,
tc, tcf, tcpcl, tm, tomlt, tty, uslp, vlog, wal, wire, yamlrw, yamlt,
osrelease, space, xdge, and crypto test runner.
+3
-3
+3
-3
lib/qmp_protocol.ml
+3
-3
lib/qmp_protocol.ml
···
36
36
|> Jsont.Object.skip_unknown |> Jsont.Object.finish
37
37
38
38
let pp ppf v =
39
-
Format.fprintf ppf "%d.%d.%d%s" v.qemu.major v.qemu.minor v.qemu.micro
39
+
Fmt.pf ppf "%d.%d.%d%s" v.qemu.major v.qemu.minor v.qemu.micro
40
40
(if v.package = "" then "" else " (" ^ v.package ^ ")")
41
41
end
42
42
···
83
83
|> Jsont.Object.mem "desc" Jsont.string ~enc:(fun e -> e.desc)
84
84
|> Jsont.Object.skip_unknown |> Jsont.Object.finish
85
85
86
-
let pp ppf e = Format.fprintf ppf "%s: %s" e.class_ e.desc
86
+
let pp ppf e = Fmt.pf ppf "%s: %s" e.class_ e.desc
87
87
end
88
88
89
89
module Event = struct
···
293
293
let of_json json = Jsont.Json.decode jsont json
294
294
295
295
let pp ppf t =
296
-
Format.fprintf ppf "%s%s"
296
+
Fmt.pf ppf "%s%s"
297
297
(string_of_run_state t.status)
298
298
(if t.singlestep then " (singlestep)" else "")
299
299
end