X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=src%2Fopt_xml.ml;h=1037b85a22232a50114ad3324d05aa19e7a52d90;hb=9c8d3ba8382df450392a8c78ab45fc263742096c;hp=bb83780b70ef00f4e6d092d521a2937047b69ac0;hpb=b7c3ef13cbd9c9cd49005a32ffb70faf6f5bbe8c;p=virt-top.git

diff --git a/src/opt_xml.ml b/src/opt_xml.ml
index bb83780..1037b85 100644
--- a/src/opt_xml.ml
+++ b/src/opt_xml.ml
@@ -27,7 +27,7 @@ module C = Libvirt.Connect
 module D = Libvirt.Domain
 module N = Libvirt.Network ;;
 
-Top.parse_device_xml :=
+Collect.parse_device_xml :=
 fun id dom ->
   try
     let xml = D.get_xml_desc dom in