git.annexia.org
/
virt-top.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
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 []