diff options
| author | Eric Mrak <mail@ericmrak.info> | 2014-03-15 14:29:30 -0700 |
|---|---|---|
| committer | Eric Mrak <mail@ericmrak.info> | 2014-03-15 14:29:30 -0700 |
| commit | b1c1b938123b585ccdb66c69e1e7a2903a8e97ad (patch) | |
| tree | 8c6eafbd15829df3e527509a6737ffb59c5b24c3 /src/Plugins/Monitors/Common.hs | |
| parent | 48167e6f50f61453a269b321c8d3c8dad7a347b4 (diff) | |
| download | xmobar-b1c1b938123b585ccdb66c69e1e7a2903a8e97ad.tar.gz xmobar-b1c1b938123b585ccdb66c69e1e7a2903a8e97ad.tar.bz2 | |
showVerticalBar now takes the same arguments as showPercentBar
Diffstat (limited to 'src/Plugins/Monitors/Common.hs')
| -rw-r--r-- | src/Plugins/Monitors/Common.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 = ' ' |