summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/Plugins/Monitors
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2019-10-12 16:22:14 +0100
committerjao <jao@gnu.org>2019-10-12 16:22:14 +0100
commitfe803b2638a46cd238c2be1fc666032e587b3089 (patch)
tree7eb5d67894771ec6d4c21d0767584520e1ed74d5 /src/Xmobar/Plugins/Monitors
parent5be73cdc459f54c57382cbcf6eeb6e9937a0c822 (diff)
downloadxmobar-fe803b2638a46cd238c2be1fc666032e587b3089.tar.gz
xmobar-fe803b2638a46cd238c2be1fc666032e587b3089.tar.bz2
Replacing the cute <> operator to make GHC 8.0/8.2 happy
Diffstat (limited to 'src/Xmobar/Plugins/Monitors')
-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)