summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/Plugins
diff options
context:
space:
mode:
Diffstat (limited to 'src/Xmobar/Plugins')
-rw-r--r--src/Xmobar/Plugins/Monitors/Batt.hs7
1 files changed, 2 insertions, 5 deletions
diff --git a/src/Xmobar/Plugins/Monitors/Batt.hs b/src/Xmobar/Plugins/Monitors/Batt.hs
index fd02cf1..16137b1 100644
--- a/src/Xmobar/Plugins/Monitors/Batt.hs
+++ b/src/Xmobar/Plugins/Monitors/Batt.hs
@@ -284,12 +284,9 @@ runBatt' bfs args = do
fmtStatus opts Charging _ _ = onString opts
fmtStatus opts Discharging _ battStatus =
(case battStatus of
- BattHigh -> highString
+ BattHigh -> highString
BattMedium -> mediumString
- BattLow -> lowString
- )
- <> offString
- $ opts
+ BattLow -> lowString) opts ++ offString opts
maybeColor Nothing str = str
maybeColor (Just c) str = "<fc=" ++ c ++ ">" ++ str ++ "</fc>"
color x o | x >= 0 = maybeColor (posColor o)