'verbose' -> 'debug' in a few more places.

diff --git a/dmesg/virt_dmesg.ml b/dmesg/virt_dmesg.ml
index 10d231f..60d7b60 100644 (file)
--- a/dmesg/virt_dmesg.ml
+++ b/dmesg/virt_dmesg.ml
@@ -34,7 +34,7 @@ DESCRIPTION
   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 verbose, images = Virt_mem.start usage
+let _, images = Virt_mem.start usage

 
 let () =
   List.iter (
 
 let () =
   List.iter (

diff --git a/lib/virt_mem.mli b/lib/virt_mem.mli
index a0f1963..443bff6 100644 (file)
--- a/lib/virt_mem.mli
+++ b/lib/virt_mem.mli
@@ -42,6 +42,6 @@ val start : Arg.usage_msg -> bool * image list
       and do all the standard processing of domains into images.
 
       The returned tuple is:
       and do all the standard processing of domains into images.
 
       The returned tuple is:

-      - verbose mode
+      - debug mode

       - list of images
   *)
       - list of images
   *)