X-Git-Url: http://git.annexia.org/?p=virt-top.git;a=blobdiff_plain;f=virt-top%2Fvirt_top.ml;h=eafad95fea50744e67ed20de0cb644af97786915;hp=9742e60c7bf649a414e84da195350609ed20353e;hb=8735ff4e1dfbb1f9205f851b5efc56cf20fb31a9;hpb=56db27de24772a575d450f0c847ea33ce0f268ff

diff --git a/virt-top/virt_top.ml b/virt-top/virt_top.ml
index 9742e60..eafad95 100644
--- a/virt-top/virt_top.ml
+++ b/virt-top/virt_top.ml
@@ -672,11 +672,11 @@ let collect, clear_pcpu_display_data =
 		 let domid = rd.rd_domid in
 		 let maplen = C.cpumaplen nr_pcpus in
 		 let cpu_stats = D.get_cpu_stats rd.rd_dom in
-		 let rec find_usages_from_stats = function
+		 let rec find_cpu_usages = function
 		   | ("cpu_time", D.TypedFieldUInt64 usages) :: _ -> usages
-		   | _ :: params -> find_usages_from_stats params
+		   | _ :: params -> find_cpu_usages params
 		   | [] -> 0L in
-		 let pcpu_usages = Array.map find_usages_from_stats cpu_stats in
+		 let pcpu_usages = Array.map find_cpu_usages cpu_stats in
 		 let maxinfo = rd.rd_info.D.nr_virt_cpu in
 		 let nr_vcpus, vcpu_infos, cpumaps =
 		   D.get_vcpus rd.rd_dom maxinfo maplen in