From a708d0defae7db40f01e294be44829e7a2f30be8 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Thu, 9 Dec 2010 01:15:41 +0100
Subject: Network monitor: no units in reported rates

Since they're always KB/s, we left them for the template
---
 Plugins/Monitors/Top.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Plugins/Monitors/Top.hs')

diff --git a/Plugins/Monitors/Top.hs b/Plugins/Monitors/Top.hs
index d475204..924d4b6 100644
--- a/Plugins/Monitors/Top.hs
+++ b/Plugins/Monitors/Top.hs
@@ -134,7 +134,7 @@ topProcesses tref scale = do
   atomicModifyIORef tref $ \(t0, c0) ->
     let scx = realToFrac (diffUTCTime c1 c0) * scale / 100
         ts = M.elems $ combineTimeInfos t0 t1
-        nts = map (\(nm, t) -> (nm, t / scx)) ts
+        nts = map (\(nm, t) -> (nm, min 100 (t / scx))) ts
     in ((t1, c1), (len, sortTop nts, sortTop mis))
 
 showTimeInfo :: TimeInfo -> Monitor [String]
-- 
cgit v1.2.3