From 8b5ecc7c30a6422541657b9a9f3a5e67ab79bedf Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Wed, 13 Apr 2011 02:57:57 +0400
Subject: [PATCH] Shrug

---
 apc.ml | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/apc.ml b/apc.ml
index a27313a..0578611 100644
--- a/apc.ml
+++ b/apc.ml
@@ -1230,7 +1230,7 @@ let create fd w h =
                     softirq
                 ;
               in
-                { all = idle
+                { all = user +. nice +. sys
                 ; user = user
                 ; nice = nice
                 ; sys = sys
@@ -1241,9 +1241,10 @@ let create fd w h =
                 }
             in
             let i1 = ref (gall ks) in
-              fun ks _ _ ->
+              fun ks t1 t2 ->
                 let i2 = gall ks in
                 let diff = add_stat i2 (neg_stat !i1) in
+                let diff = { diff with all = t2 -. t1 -. diff.all } in
                   i1 := i2;
                   diff
         in
-- 
2.11.4.GIT