X-Git-Url: http://git.annexia.org/?p=virt-top.git;a=blobdiff_plain;f=virt-top%2Fvirt_top.ml;h=1a39e06400cee9089c54488296e6f1b143f6ca03;hp=353c0981b75b2f3a2205272ccd91235e6526dac4;hb=e9ea4c12eac574c7daba52e93654eb2166c2e4cf;hpb=f2a2d508030d497e67b10d822d9dd1bc67036e78

diff --git a/virt-top/virt_top.ml b/virt-top/virt_top.ml
index 353c098..1a39e06 100644
--- a/virt-top/virt_top.ml
+++ b/virt-top/virt_top.ml
@@ -80,9 +80,8 @@ let sort_order_of_cli = function
   | "netrx" -> NetRX | "nettx" -> NetTX
   | "blockrdrq" -> BlockRdRq | "blockwrrq" -> BlockWrRq
   | str ->
-      failwith
-	(sprintf (f_ "%s: sort order should be: %s")
-	   str "cpu|mem|time|id|name|netrx|nettx|blockrdrq|blockwrrq")
+      failwithf (f_ "%s: sort order should be: %s")
+	str "cpu|mem|time|id|name|netrx|nettx|blockrdrq|blockwrrq"
 let cli_of_sort_order = function
   | Processor -> "cpu"
   | Memory -> "mem"
@@ -103,9 +102,7 @@ let display_of_cli = function
   | "block" -> BlockDisplay
   | "net" -> NetDisplay
   | str ->
-      failwith
-	(sprintf (f_ "%s: display should be %s")
-	   str "task|pcpu|block|net")
+      failwithf (f_ "%s: display should be %s") str "task|pcpu|block|net"
 let cli_of_display = function
   | TaskDisplay -> "task"
   | PCPUDisplay -> "pcpu"