summaryrefslogtreecommitdiffhomepage
path: root/src/Plugins/Monitors/Batt.hs
diff options
context:
space:
mode:
authorEric Mrak <mail@ericmrak.info>2014-03-15 14:29:30 -0700
committerEric Mrak <mail@ericmrak.info>2014-03-15 14:29:30 -0700
commitb1c1b938123b585ccdb66c69e1e7a2903a8e97ad (patch)
tree8c6eafbd15829df3e527509a6737ffb59c5b24c3 /src/Plugins/Monitors/Batt.hs
parent48167e6f50f61453a269b321c8d3c8dad7a347b4 (diff)
downloadxmobar-b1c1b938123b585ccdb66c69e1e7a2903a8e97ad.tar.gz
xmobar-b1c1b938123b585ccdb66c69e1e7a2903a8e97ad.tar.bz2
showVerticalBar now takes the same arguments as showPercentBar
Diffstat (limited to 'src/Plugins/Monitors/Batt.hs')
-rw-r--r--src/Plugins/Monitors/Batt.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Plugins/Monitors/Batt.hs b/src/Plugins/Monitors/Batt.hs
index d6b8ce0..3eb2051 100644
--- a/src/Plugins/Monitors/Batt.hs
+++ b/src/Plugins/Monitors/Batt.hs
@@ -174,7 +174,7 @@ runBatt' bfs args = do
let x' = minimum [1, x]
p <- showPercentWithColors x'
b <- showPercentBar (100 * x') x'
- vb <- showVerticalBar (100 * x')
+ vb <- showVerticalBar (100 * x') x'
return [b, vb, p]
fmtWatts x o s d = do
ws <- showWithPadding $ showDigits d x ++ (if s then "W" else "")