X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;ds=inline;f=virt-top%2Fvirt_top_xml.ml;h=ab291d36d480e94cb03f4dca8336ad481b7d26a8;hb=65f81d8496ab8704aee82644d795ae71d59466f2;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..ab291d3 100644
--- a/virt-top/virt_top_xml.ml
+++ b/virt-top/virt_top_xml.ml
@@ -1,5 +1,5 @@
(* 'top'-like tool for libvirt domains.
- (C) Copyright 2007 Richard W.M. Jones, Red Hat Inc.
+ (C) Copyright 2007-2009 Richard W.M. Jones, Red Hat Inc.
http://libvirt.org/
This program is free software; you can redistribute it and/or modify
@@ -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 " in
+ failwith (s_ "get_xml_desc didn't return ") in
let rec target_dev_of = function
| [] -> None
| Xml.Element ("target", attrs, _) :: rest ->