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 fbd7f28..74540be 100644 (file)
--- a/virt-ctrl/vc_domain_ops.ml
+++ b/virt-ctrl/vc_domain_ops.ml
@@ -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 -> ()