From f69a7ec50716191a31b79be08998d9b2adf6c9fa Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sun, 30 Jun 2019 01:13:57 +0100
Subject: hlinting

---
 src/Xmobar/Plugins/Monitors/Batt.hs  | 9 ++++-----
 src/Xmobar/Plugins/Monitors/Mpris.hs | 2 +-
 2 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/src/Xmobar/Plugins/Monitors/Batt.hs b/src/Xmobar/Plugins/Monitors/Batt.hs
index bebbf1c..9ce0dca 100644
--- a/src/Xmobar/Plugins/Monitors/Batt.hs
+++ b/src/Xmobar/Plugins/Monitors/Batt.hs
@@ -16,7 +16,7 @@
 module Xmobar.Plugins.Monitors.Batt ( battConfig, runBatt, runBatt' ) where
 
 import System.Process (system)
-import Control.Monad (void)
+import Control.Monad (void, when)
 import Control.Exception (SomeException, handle)
 import Xmobar.Plugins.Monitors.Common
 import System.FilePath ((</>))
@@ -184,10 +184,9 @@ mostCommonDef x xs = head $ last $ [x] : sortOn length (group xs)
 maybeAlert :: BattOpts -> Float -> IO ()
 maybeAlert opts left =
   case onLowAction opts of
-    Nothing -> do return ()
-    Just x -> if not (isNaN left) && actionThreshold opts >= (100 * left)
-              then void $ system x
-              else return ()
+    Nothing -> return ()
+    Just x -> when (not (isNaN left) && actionThreshold opts >= (100 * left))
+                $ void $ system x
 
 readBatteries :: BattOpts -> [Files] -> IO Result
 readBatteries opts bfs =
diff --git a/src/Xmobar/Plugins/Monitors/Mpris.hs b/src/Xmobar/Plugins/Monitors/Mpris.hs
index 3556649..480698c 100644
--- a/src/Xmobar/Plugins/Monitors/Mpris.hs
+++ b/src/Xmobar/Plugins/Monitors/Mpris.hs
@@ -85,7 +85,7 @@ dbusClient = unsafePerformIO DC.connectSession
 runMPRIS :: (MprisVersion a) => a -> String -> [String] -> Monitor String
 runMPRIS version playerName _ = do
     metadata <- io $ getMetadata version dbusClient playerName
-    if [] == metadata then
+    if null metadata then
       getConfigValue naString
       else mapM showWithPadding (makeList version metadata) >>= parseTemplate
 
-- 
cgit v1.2.3