Added range library function.

[virt-top.git] / virt-df / virt_df.ml

diff --git a/virt-df/virt_df.ml b/virt-df/virt_df.ml
index f8f34ab..63bb090 100644 (file)
--- a/virt-df/virt_df.ml
+++ b/virt-df/virt_df.ml
@@ -258,3 +258,7 @@ let group_by ?(cmp = Pervasives.compare) ls =
   in
   let ls' = List.rev ls' in
   List.map (fun (x, xs) -> x, List.rev xs) ls'
+
+let rec range a b =
+  if a < b then a :: range (a+1) b
+  else []