bitmatch -> bitstring

[virt-mem.git] / dmesg / virt_dmesg.ml

diff --git a/dmesg/virt_dmesg.ml b/dmesg/virt_dmesg.ml
index 0931e91..dd41d26 100644 (file)
--- a/dmesg/virt_dmesg.ml
+++ b/dmesg/virt_dmesg.ml
@@ -25,7 +25,7 @@ open Virt_mem_mmap
 
 let run debug images =
   List.iter (
 
 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.
       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."
 
 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