Print signatures next to functions in the bindings.

[virt-top.git] / virt-ctrl / vc_domain_ops.ml

diff --git a/virt-ctrl/vc_domain_ops.ml b/virt-ctrl/vc_domain_ops.ml
index cbe7a98..74540be 100644 (file)
--- a/virt-ctrl/vc_domain_ops.ml
+++ b/virt-ctrl/vc_domain_ops.ml
@@ -1,4 +1,4 @@
-(* virt-manager-like graphical management tool.
+(* virt-ctrl: A graphical management tool.
    (C) Copyright 2007 Richard W.M. Jones, Red Hat Inc.
    http://libvirt.org/
 
@@ -67,6 +67,9 @@ let get_domain (tree : GTree.view) (model : GTree.tree_store)
              prerr_endline (Libvirt.Virterror.to_string err);
              None
 
+type dops_callback_fn =
+    GTree.view -> GTree.tree_store -> Vc_connections.columns -> unit -> unit
+
 let start_domain tree model columns () =
   match get_domain tree model columns with
   | None -> ()