summaryrefslogtreecommitdiffhomepage
path: root/Plugins/Monitors
diff options
context:
space:
mode:
Diffstat (limited to 'Plugins/Monitors')
-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]