From a708d0defae7db40f01e294be44829e7a2f30be8 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz 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/Net.hs | 7 +++---- Plugins/Monitors/Top.hs | 2 +- 2 files changed, 4 insertions(+), 5 deletions(-) (limited to 'Plugins/Monitors') diff --git a/Plugins/Monitors/Net.hs b/Plugins/Monitors/Net.hs index d08f96e..c232b42 100644 --- a/Plugins/Monitors/Net.hs +++ b/Plugins/Monitors/Net.hs @@ -28,7 +28,7 @@ interval = 500000 netConfig :: IO MConfig netConfig = mkMConfig - ": |" -- template + ": KB|KB" -- template ["dev", "rx", "tx", "rxbar", "txbar"] -- available replacements -- Given a list of indexes, take the indexed elements from a list. @@ -64,10 +64,9 @@ netParser = formatNet :: Float -> Monitor (String, String) formatNet d = do - b <- showLogBar 0.8 d - x <- showWithColors f d + b <- showLogBar 0.6 d + x <- showWithColors (showDigits 1) d return (x, b) - where f s = showDigits 1 s ++ "Kb" printNet :: NetDev -> Monitor String printNet nd = 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