Added zh_CN translations by Wei Liu.

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

diff --git a/uname/virt_uname.ml b/uname/virt_uname.ml
index d90974d..9f8b38e 100644 (file)
--- a/uname/virt_uname.ml
+++ b/uname/virt_uname.ml
@@ -23,13 +23,13 @@ open Virt_mem_gettext.Gettext
 open Virt_mem_utils
 open Virt_mem_types
 
-let run debug { domname = domname } { utsname = utsname } =
+let run debug { domname = domname; utsname = utsname } =
   match utsname with
   | Some u ->
       printf "%s: %s %s %s %s %s %s\n"
        domname
-       u.kernel_name u.nodename u.kernel_release
-       u.kernel_version u.machine u.domainname
+       u.uts_kernel_name u.uts_nodename u.uts_kernel_release
+       u.uts_kernel_version u.uts_machine u.uts_domainname
   | None ->
       eprintf (f_"%s: no system_utsname in kernel image\n") domname