diff options
| -rw-r--r-- | src/Xmobar/Plugins/Monitors/Batt.hs | 7 |
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) |