diff options
author | Richard W.M. Jones <rjones@redhat.com> | 2008-03-28 17:30:32 +0000 |
---|---|---|
committer | Richard W.M. Jones <rjones@redhat.com> | 2008-03-28 17:30:32 +0000 |
commit | 46d3772c9a5cf786fa4fbdb2ba29512580101f32 (patch) | |
tree | 03c5f2e2231f915c6a269f48ccbcab78345d187f /virt-top/virt_top_xml.ml | |
parent | 4edc7905c404a3fe2caaee773630874786b21b4d (diff) | |
download | virt-top-46d3772c9a5cf786fa4fbdb2ba29512580101f32.tar.gz virt-top-46d3772c9a5cf786fa4fbdb2ba29512580101f32.tar.xz virt-top-46d3772c9a5cf786fa4fbdb2ba29512580101f32.zip |
Internationalize virt-top.
Diffstat (limited to 'virt-top/virt_top_xml.ml')
-rw-r--r--[-rwxr-xr-x] | virt-top/virt_top_xml.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/virt-top/virt_top_xml.ml b/virt-top/virt_top_xml.ml index 8bf3d8a..73a4906 100755..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 -> |