X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=virt-top%2Fvirt_top_utils.ml;h=69f442f49d9f930380d37d48870506147b523d6f;hb=e9ea4c12eac574c7daba52e93654eb2166c2e4cf;hp=c668fb92d32c335e038ed8ad5e52c116fde40828;hpb=46d3772c9a5cf786fa4fbdb2ba29512580101f32;p=virt-top.git

diff --git a/virt-top/virt_top_utils.ml b/virt-top/virt_top_utils.ml
index c668fb9..69f442f 100644
--- a/virt-top/virt_top_utils.ml
+++ b/virt-top/virt_top_utils.ml
@@ -35,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