open Virt_mem_utils
open Virt_mem_types
-let run debug (_, name, _, _, _, utsname) =
+let run debug ({ domname = domname }, _, utsname) =
match utsname with
| Some u ->
printf "%s: %s %s %s %s %s %s\n"
- name
+ domname
u.kernel_name u.nodename u.kernel_release
u.kernel_version u.machine u.domainname
| None ->
- eprintf (f_"%s: no system_utsname in kernel image\n") name
+ eprintf (f_"%s: no system_utsname in kernel image\n") domname
let summary = s_"uname command for virtual machines"
let description = s_"\