From 907fdbc3d1609275fa4762baad14be22cef0530a Mon Sep 17 00:00:00 2001
From: Jose A Ortega Ruiz <jao@gnu.org>
Date: Sat, 22 May 2010 01:47:07 +0200
Subject: Tiny refactoring in Top.hs

Ignore-this: 59849695cd346e0cc2f5c8b44edcae7a

darcs-hash:20100521234707-748be-81a3ecb8b5c5dba66187d4af3b4dc72f5ff61a6e.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 93fd940..d475204 100644
--- a/Plugins/Monitors/Top.hs
+++ b/Plugins/Monitors/Top.hs
@@ -132,7 +132,7 @@ topProcesses tref scale = do
   (t1, mis, len) <- timeMemInfos
   c1 <- getCurrentTime
   atomicModifyIORef tref $ \(t0, c0) ->
-    let scx = (fromRational . toRational $ diffUTCTime c1 c0) * scale / 100
+    let scx = realToFrac (diffUTCTime c1 c0) * scale / 100
         ts = M.elems $ combineTimeInfos t0 t1
         nts = map (\(nm, t) -> (nm, t / scx)) ts
     in ((t1, c1), (len, sortTop nts, sortTop mis))
-- 
cgit v1.2.3