From ed3e2fb95c2b6180e827d20724d081e81345b000 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Wed, 8 Dec 2010 00:26:20 +0100
Subject: Make Mem monitor honour -P

---
 Plugins/Monitors/Mem.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'Plugins')

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
-- 
cgit v1.2.3