summaryrefslogtreecommitdiffhomepage
path: root/Plugins/Monitors/Top.hs
diff options
context:
space:
mode:
authorJose A Ortega Ruiz <jao@gnu.org>2010-02-25 00:26:39 +0100
committerJose A Ortega Ruiz <jao@gnu.org>2010-02-25 00:26:39 +0100
commit4f8ba03c51570925fb59e90e65747da37a2a4b65 (patch)
tree112070f922a2c59b866811edfdf5955478ae9f05 /Plugins/Monitors/Top.hs
parent7a812769258f8d156d0d4e8f2b86ea85eec03157 (diff)
downloadxmobar-4f8ba03c51570925fb59e90e65747da37a2a4b65.tar.gz
xmobar-4f8ba03c51570925fb59e90e65747da37a2a4b65.tar.bz2
Top monitor: top activity bounds checking.
Ignore-this: 70e061f2fb06dbfaffb9758086c3c33f darcs-hash:20100224232639-748be-4ae09c89f20ded2bd62a3154d4b2687862147220.gz
Diffstat (limited to 'Plugins/Monitors/Top.hs')
-rw-r--r--Plugins/Monitors/Top.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Plugins/Monitors/Top.hs b/Plugins/Monitors/Top.hs
index 93b767d..afe408a 100644
--- a/Plugins/Monitors/Top.hs
+++ b/Plugins/Monitors/Top.hs
@@ -154,7 +154,7 @@ topTimeProcesses n tref lapse = do
let !ts = M.elems $ combineTimeInfos t0 t1
!sts = take n $ sortBy (flip (comparing snd)) ts
!nts = map norm sts
- norm (nm, t) = (nm, 100 * t / lapse)
+ norm (nm, t) = (nm, min 100 $ 100 * t / lapse)
return nts
showTimeInfo :: TimeInfo -> Monitor [String]