git.annexia.org
/
virt-top.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Internationalize virt-top.
[virt-top.git]
/
virt-top
/
virt_top_xml.ml
diff --git
a/virt-top/virt_top_xml.ml
b/virt-top/virt_top_xml.ml
index
8bf3d8a
..
73a4906
100644
(file)
--- a/
virt-top/virt_top_xml.ml
+++ b/
virt-top/virt_top_xml.ml
@@
-21,6
+21,8
@@
open ExtList
open ExtList
+open Virt_top_gettext.Gettext
+
module C = Libvirt.Connect
module D = Libvirt.Domain
module N = Libvirt.Network ;;
module C = Libvirt.Connect
module D = Libvirt.Domain
module N = Libvirt.Network ;;
@@
-41,7
+43,7
@@
fun id dom ->
) children in
List.concat devices
| _ ->
) 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 ->
let rec target_dev_of = function
| [] -> None
| Xml.Element ("target", attrs, _) :: rest ->