diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-03-23 22:33:32 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-03-23 22:33:32 +0100 |
| commit | f6b0e885b7359f60d6da826b3bf8ca4301bb5f8c (patch) | |
| tree | c9be1df6532944374b4630c81ac57697f17ed8e9 /Plugins/Monitors/Top.hs | |
| parent | 070cab23829a45aa786f7d765a937cc003468f6b (diff) | |
| download | xmobar-f6b0e885b7359f60d6da826b3bf8ca4301bb5f8c.tar.gz xmobar-f6b0e885b7359f60d6da826b3bf8ca4301bb5f8c.tar.bz2 | |
Artificial bound in relative load computation removed.
Ignore-this: d8577938430d9c8614c04a6bcee14dfd
darcs-hash:20100323213332-1d908-c43d8793742f731c19e30afe4eb7301b02bf268f.gz
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 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] |