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 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))