diff options
| author | Jose A Ortega Ruiz <jao@gnu.org> | 2010-02-25 00:26:39 +0100 |
|---|---|---|
| committer | Jose A Ortega Ruiz <jao@gnu.org> | 2010-02-25 00:26:39 +0100 |
| commit | 4f8ba03c51570925fb59e90e65747da37a2a4b65 (patch) | |
| tree | 112070f922a2c59b866811edfdf5955478ae9f05 /Plugins/Monitors | |
| parent | 7a812769258f8d156d0d4e8f2b86ea85eec03157 (diff) | |
| download | xmobar-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')
| -rw-r--r-- | Plugins/Monitors/Top.hs | 2 |
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] |