Change order of return values from getyx - fixes display of historical CPU.

[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
old mode 100755 (executable)
new mode 100644 (file)
index 8bf3d8a..ab291d3
--- 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 <domain/>" in
+         failwith (s_ "get_xml_desc didn't return <domain/>") in
     let rec target_dev_of = function
       | [] -> None
       | Xml.Element ("target", attrs, _) :: rest ->