Replace failwith (sprintf...) with failwithf

[virt-top.git] / virt-top / virt_top_utils.ml

diff --git a/virt-top/virt_top_utils.ml b/virt-top/virt_top_utils.ml
index 53c9bf1..69f442f 100644 (file)
--- a/virt-top/virt_top_utils.ml
+++ b/virt-top/virt_top_utils.ml
@@ -21,6 +21,8 @@
 
 open Printf
 
+open Virt_top_gettext.Gettext
+
 module C = Libvirt.Connect
 module D = Libvirt.Domain
 module N = Libvirt.Network
@@ -33,6 +35,9 @@ let (-^) = Int64.sub
 let ( *^ ) = Int64.mul
 let (/^) = Int64.div
 
+(* failwithf is a printf-like version of failwith. *)
+let failwithf fs = ksprintf failwith fs
+
 (* Input a whole file as a list of lines. *)
 let input_all_lines chan =
   let lines = ref [] in