From b1c1b938123b585ccdb66c69e1e7a2903a8e97ad Mon Sep 17 00:00:00 2001 From: Eric Mrak Date: Sat, 15 Mar 2014 14:29:30 -0700 Subject: showVerticalBar now takes the same arguments as showPercentBar --- src/Plugins/Monitors/Mem.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Plugins/Monitors/Mem.hs') diff --git a/src/Plugins/Monitors/Mem.hs b/src/Plugins/Monitors/Mem.hs index e483317..e409095 100644 --- a/src/Plugins/Monitors/Mem.hs +++ b/src/Plugins/Monitors/Mem.hs @@ -49,9 +49,9 @@ formatMem (r:fr:xs) = do let f = showDigits 0 rr = 100 * r ub <- showPercentBar rr r - uvb <- showVerticalBar rr + uvb <- showVerticalBar rr r fb <- showPercentBar (100 - rr) (1 - r) - fvb <- showVerticalBar (100 - rr) + fvb <- showVerticalBar (100 - rr) ( 1 - r) rs <- showPercentWithColors r fs <- showPercentWithColors fr s <- mapM (showWithColors f) xs -- cgit v1.2.3