mlvirtmanager renamed as virt-ctrl.

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

diff --git a/mlvirtmanager/mlvirtmanager_domain_ops.ml b/virt-ctrl/vc_domain_ops.ml
old mode 100755 (executable)
new mode 100644 (file)
similarity index 96%
rename from mlvirtmanager/mlvirtmanager_domain_ops.ml
rename to virt-ctrl/vc_domain_ops.ml
index 6de6c59..cbe7a98
--- a/mlvirtmanager/mlvirtmanager_domain_ops.ml
+++ b/virt-ctrl/vc_domain_ops.ml
@@ -27,7 +27,7 @@ module N = Libvirt.Network
 
 (* Get the selected domain (if there is one) or return None. *)
 let get_domain (tree : GTree.view) (model : GTree.tree_store)
-    (columns : Mlvirtmanager_connections.columns) =
+    (columns : Vc_connections.columns) =
   let path, _ = tree#get_cursor () in
   match path with
   | None -> None                       (* No row at all selected. *)
@@ -44,7 +44,7 @@ let get_domain (tree : GTree.view) (model : GTree.tree_store)
            let (_, col_domname, _, _, _, col_id) = columns in
            let conn_id = model#get ~row:parent ~column:col_id in
            let conn =
-             List.assoc conn_id (Mlvirtmanager_connections.get_conns ()) in
+             List.assoc conn_id (Vc_connections.get_conns ()) in
            let domid = model#get ~row ~column:col_id in
            if domid = -1 then (        (* Inactive domain. *)
              let domname = model#get ~row ~column:col_domname in