diff options
| author | jao <jao@gnu.org> | 2019-10-12 16:22:14 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2019-10-12 16:22:14 +0100 |
| commit | fe803b2638a46cd238c2be1fc666032e587b3089 (patch) | |
| tree | 7eb5d67894771ec6d4c21d0767584520e1ed74d5 | |
| parent | 5be73cdc459f54c57382cbcf6eeb6e9937a0c822 (diff) | |
| download | xmobar-fe803b2638a46cd238c2be1fc666032e587b3089.tar.gz xmobar-fe803b2638a46cd238c2be1fc666032e587b3089.tar.bz2 | |
Replacing the cute <> operator to make GHC 8.0/8.2 happy
| -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) |