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