diff options
| author | Jose A Ortega Ruiz <jao@gnu.org> | 2010-02-14 14:42:35 +0100 |
|---|---|---|
| committer | Jose A Ortega Ruiz <jao@gnu.org> | 2010-02-14 14:42:35 +0100 |
| commit | 75e97337a0f68caacbfa7ddadcf040c6f3f889df (patch) | |
| tree | 585245bd79811afa4d684cfba9c56bc25f7f2e38 /Plugins/Monitors/Top.hs | |
| parent | 7d4d754f92a3c0f78f4adc474392013749d85972 (diff) | |
| download | xmobar-75e97337a0f68caacbfa7ddadcf040c6f3f889df.tar.gz xmobar-75e97337a0f68caacbfa7ddadcf040c6f3f889df.tar.bz2 | |
A few redundant bang patterns removed
Ignore-this: aaac0bc989a6c19c548c9917739bdf46
darcs-hash:20100214134235-748be-0ee80de1e2f175aee2b8252ac9fc8cc3bd78a199.gz
Diffstat (limited to 'Plugins/Monitors/Top.hs')
| -rw-r--r-- | Plugins/Monitors/Top.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/Plugins/Monitors/Top.hs b/Plugins/Monitors/Top.hs index 6ca75c7..78ceee9 100644 --- a/Plugins/Monitors/Top.hs +++ b/Plugins/Monitors/Top.hs @@ -102,8 +102,8 @@ type Meminfo = (String, Int) meminfo :: [String] -> Meminfo meminfo fs = (n, r) - where !n = processName fs - !r = pageSize * (read (fs!!23)) + where n = processName fs + r = pageSize * (read (fs!!23)) meminfos :: IO [Meminfo] meminfos = handleProcesses ("", 0) meminfo @@ -132,9 +132,9 @@ type TimesRef = IORef Times timeEntry :: [String] -> TimeEntry timeEntry fs = (p, (n, t)) - where !p = read (head fs) - !n = processName fs - !t = read (fs!!13) + read (fs!!14) + where p = read (head fs) + n = processName fs + t = read (fs!!13) + read (fs!!14) timeEntries :: IO [TimeEntry] timeEntries = handleProcesses (0, ("", 0)) timeEntry @@ -168,7 +168,7 @@ runTopCpu tref lapse _ = do startTopCpu :: [String] -> Int -> (String -> IO ()) -> IO () startTopCpu a r cb = do - t <- getSysVar ClockTick + cr <- getSysVar ClockTick tref <- newIORef M.empty - let lapse = (fromIntegral r * fromIntegral t) / 10 + let lapse = (fromIntegral r * fromIntegral cr) / 10 runM a topCpuConfig (runTopCpu tref lapse) r cb |