X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=generator%2Fgenerator_actions.ml;h=4967ce205a9c26bc418c64ecfa5f248dc4af39c1;hp=86865b8c5f4469e398e2b0e4e933d7fc5af2bd98;hb=f1041e912b72116d66274d2f15e50ce34a9531fd;hpb=472f02d08b077a5c1ee233d9dcef92ac9b09d4ae;ds=sidebyside

diff --git a/generator/generator_actions.ml b/generator/generator_actions.ml
index 86865b8..4967ce2 100644
--- a/generator/generator_actions.ml
+++ b/generator/generator_actions.ml
@@ -1085,6 +1085,13 @@ Please read L<guestfs(3)/INSPECTION> for more details.");
 This returns the internal QEMU command line.  'debug' commands are
 not part of the formal API and can be removed or changed at any time.");
 
+  ("debug_drives", (RStringList "cmdline", [], []), -1, [NotInDocs],
+   [],
+   "debug the drives (internal use only)",
+   "\
+This returns the internal list of drives.  'debug' commands are
+not part of the formal API and can be removed or changed at any time.");
+
   ("add_domain", (RInt "nrdisks", [String "dom"], [String "libvirturi"; Bool "readonly"; String "iface"; Bool "live"; Bool "allowuuid"]), -1, [FishAlias "domain"],
    [],
    "add the disk(s) from a named libvirt domain",