Preparation for capture subcommand:

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

diff --git a/uname/virt_uname.ml b/uname/virt_uname.ml
index f2f6ddc..e90b5a6 100644 (file)
--- a/uname/virt_uname.ml
+++ b/uname/virt_uname.ml
@@ -57,7 +57,7 @@ let run debug images =
   in
 
   List.iter (
-    fun (name, arch, mem, lookup_ksym) ->
+    fun (_, name, arch, mem, lookup_ksym) ->
       (* In Linux 2.6.25, the symbol is init_uts_ns.
        * http://lxr.linux.no/linux/init/version.c
        *)
@@ -94,4 +94,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 true run
+let () = Virt_mem.register "uname" summary description ~run