From fe803b2638a46cd238c2be1fc666032e587b3089 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 12 Oct 2019 16:22:14 +0100
Subject: Replacing the cute <> operator to make GHC 8.0/8.2 happy
---
src/Xmobar/Plugins/Monitors/Batt.hs | 7 ++-----
1 file changed, 2 insertions(+), 5 deletions(-)
(limited to 'src')
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)
--
cgit v1.2.3