diff options
Diffstat (limited to 'Plugins/Monitors/Top.hs')
| -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] |