diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-12-08 00:26:20 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-12-08 00:26:20 +0100 |
| commit | ed3e2fb95c2b6180e827d20724d081e81345b000 (patch) | |
| tree | 7bd61b9cbc73b73ad7dd6936840a36ae7a93f1bc | |
| parent | 243e7618cd5e630b8f9d12f8189ff356f10ad7f9 (diff) | |
| download | xmobar-ed3e2fb95c2b6180e827d20724d081e81345b000.tar.gz xmobar-ed3e2fb95c2b6180e827d20724d081e81345b000.tar.bz2 | |
Make Mem monitor honour -P
| -rw-r--r-- | Plugins/Monitors/Mem.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Plugins/Monitors/Mem.hs b/Plugins/Monitors/Mem.hs index f493862..4453559 100644 --- a/Plugins/Monitors/Mem.hs +++ b/Plugins/Monitors/Mem.hs @@ -47,8 +47,9 @@ formatMem (r:xs) = rr = 100 * r ub <- showPercentBar rr r fb <- showPercentBar (100 - rr) (1 - r) - s <- mapM (showWithColors f) (rr:xs) - return (ub:fb:s) + rs <- showPercentWithColors r + s <- mapM (showWithColors f) xs + return (ub:fb:rs:s) formatMem _ = return $ replicate 9 "N/A" runMem :: [String] -> Monitor String |