bitmatch -> bitstring
[virt-mem.git] / dmesg / virt_dmesg.ml
index 0931e91..dd41d26 100644 (file)
@@ -25,7 +25,7 @@ open Virt_mem_mmap
 
 let run debug images =
   List.iter (
-    fun (name, arch, mem, lookup_ksym) ->
+    fun (_, name, arch, mem, lookup_ksym) ->
       try
        (* I don't know why but this symbol doesn't exist in 2.6.9
         * even in kallsyms.  Hence this won't work with that kernel.
@@ -80,4 +80,4 @@ virt-dmesg prints the kernel messages for virtual machines running
 under libvirt.  The output is similar to the ordinary dmesg command
 run inside the virtual machine."
 
-let () = Virt_mem.register "dmesg" summary description true run
+let () = Virt_mem.register "dmesg" summary description ~run