Get rid of lookup_ksym function, replace with a map.

[virt-mem.git] / uname / virt_uname.ml

diff --git a/uname/virt_uname.ml b/uname/virt_uname.ml
index 981f0ee..3d902ce 100644 (file)
--- a/uname/virt_uname.ml
+++ b/uname/virt_uname.ml
@@ -23,15 +23,15 @@ open Virt_mem_gettext.Gettext
 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_"\