QEMU/KVM virtual machine management via QMP
ocaml-qemu: collapse Ok status print after dune fmt
+1
-2
+1
-2
lib/qemu.mli
+1
-2
lib/qemu.mli
···
33
33
| Ok () -> (
34
34
(* Query status. *)
35
35
match Qemu.Vm.query_status vm with
36
-
| Ok status ->
37
-
Fmt.pr "VM status: %a@." Qemu.Qmp.Status.pp status
36
+
| Ok status -> Fmt.pr "VM status: %a@." Qemu.Qmp.Status.pp status
38
37
| Error e -> Fmt.epr "query_status: %s@." e)
39
38
]}
40
39