X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=uname%2Fvirt_uname.ml;h=d90974d2d8b950e85c01645414b617656b8b0849;hb=cf4669f31197abcfb14dee874a4b738c9c2e6483;hp=3d902ce633a1c41446715098fbe8b121814c462d;hpb=465c7453654e34513b19172dd56fcfff199f210e;p=virt-mem.git

diff --git a/uname/virt_uname.ml b/uname/virt_uname.ml
index 3d902ce..d90974d 100644
--- a/uname/virt_uname.ml
+++ b/uname/virt_uname.ml
@@ -23,7 +23,7 @@ open Virt_mem_gettext.Gettext
 open Virt_mem_utils
 open Virt_mem_types
 
-let run debug ({ domname = domname }, _, utsname) =
+let run debug { domname = domname } { utsname = utsname } =
   match utsname with
   | Some u ->
       printf "%s: %s %s %s %s %s %s\n"
@@ -39,4 +39,4 @@ virt-uname prints the uname information such as OS version,
 architecture and node name for virtual machines running under
 libvirt."
 
-let () = Virt_mem.register "uname" summary description ~run
+let () = Virt_mem.register "uname" summary description ~needs_utsname:true ~run