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/Common.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Plugins/Monitors/Common.hs') diff --git a/src/Plugins/Monitors/Common.hs b/src/Plugins/Monitors/Common.hs index 40545cc..ecc9db4 100644 --- a/src/Plugins/Monitors/Common.hs +++ b/src/Plugins/Monitors/Common.hs @@ -451,8 +451,8 @@ showPercentBar v x = do s <- colorizeString v (take len $ cycle bf) return $ s ++ take (bw - len) (cycle bb) -showVerticalBar :: Float -> Monitor String -showVerticalBar x = colorizeString x [convert x] +showVerticalBar :: Float -> Float -> Monitor String +showVerticalBar v x = colorizeString v [convert $ 100 * x] where convert :: Float -> Char convert val | t <= 9600 = ' ' -- cgit v1.2.3