From 4f8ba03c51570925fb59e90e65747da37a2a4b65 Mon Sep 17 00:00:00 2001
From: Jose A Ortega Ruiz <jao@gnu.org>
Date: Thu, 25 Feb 2010 00:26:39 +0100
Subject: Top monitor: top activity bounds checking.

Ignore-this: 70e061f2fb06dbfaffb9758086c3c33f

darcs-hash:20100224232639-748be-4ae09c89f20ded2bd62a3154d4b2687862147220.gz
---
 Plugins/Monitors/Top.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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]
-- 
cgit v1.2.3