summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-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 9885d55..779cfbe 100644
--- a/Plugins/Monitors/Top.hs
+++ b/Plugins/Monitors/Top.hs
@@ -153,7 +153,7 @@ topTimeProcesses n tref scale = do
!sts = take n $ sortBy (flip (comparing snd)) ts
!nts = map norm sts
!scx = (fromRational . toRational $! diffUTCTime c1 c0) * scale / 100
- norm (nm, t) = (nm, min 100 $ t / scx)
+ norm (nm, t) = (nm, t / scx)
return nts
showTimeInfo :: TimeInfo -> Monitor [String]