X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=virt-top%2Fvirt_top_xml.ml;h=73a4906328de8937f03239dec257e01aada024d5;hb=c1ded989d84a005b97e52d57c95e9c6105e4f58d;hp=8bf3d8afb092318c0b572b4fbaaafda5ac3ab5b2;hpb=9bb5f67c0d8a6e8dad7de72e2488ee73c90f7d43;p=virt-top.git

diff --git a/virt-top/virt_top_xml.ml b/virt-top/virt_top_xml.ml
index 8bf3d8a..73a4906 100644
--- a/virt-top/virt_top_xml.ml
+++ b/virt-top/virt_top_xml.ml
@@ -21,6 +21,8 @@
 
 open ExtList
 
+open Virt_top_gettext.Gettext
+
 module C = Libvirt.Connect
 module D = Libvirt.Domain
 module N = Libvirt.Network ;;
@@ -41,7 +43,7 @@ fun id dom ->
 	    ) children in
 	  List.concat devices
       | _ ->
-	  failwith "get_xml_desc didn't return <domain/>" in
+	  failwith (s_ "get_xml_desc didn't return <domain/>") in
     let rec target_dev_of = function
       | [] -> None
       | Xml.Element ("target", attrs, _) :: rest ->