From 6faa17e39d7bf77df9aa199db09d52a600984271 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Mon, 11 May 2020 19:22:41 +0100
Subject: hlinting

---
 src/Xmobar/System/Utils.hs | 2 +-
 src/Xmobar/X11/Parsers.hs  | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/Xmobar/System/Utils.hs b/src/Xmobar/System/Utils.hs
index 33f221c..d532149 100644
--- a/src/Xmobar/System/Utils.hs
+++ b/src/Xmobar/System/Utils.hs
@@ -67,6 +67,6 @@ onSomeException io what = io `catch` \e -> do _ <- what e
 {-# INLINE (!!?) #-}
 
 safeIndex :: NE.NonEmpty a -> Int -> a
-safeIndex xs index = case (NE.toList xs) !!? index of
+safeIndex xs index = case NE.toList xs !!? index of
                        Nothing -> NE.head xs
                        Just value -> value
diff --git a/src/Xmobar/X11/Parsers.hs b/src/Xmobar/X11/Parsers.hs
index 4c8a130..1d486d9 100644
--- a/src/Xmobar/X11/Parsers.hs
+++ b/src/Xmobar/X11/Parsers.hs
@@ -20,6 +20,7 @@ import Xmobar.Config.Types
 import Xmobar.X11.Actions
 
 import Control.Monad (guard, mzero)
+import Data.Maybe (fromMaybe)
 import Text.ParserCombinators.Parsec
 import Text.Read (readMaybe)
 import Graphics.X11.Types (Button)
@@ -139,7 +140,7 @@ fontParser :: ColorString -> Maybe [Action]
               -> Parser [(Widget, ColorString, FontIndex, Maybe [Action])]
 fontParser c a = do
   f <- between (string "<fn=") (string ">") colors
-  s <- manyTill (allParsers c (maybe 0 id $ readMaybe f) a) (try $ string "</fn>")
+  s <- manyTill (allParsers c (fromMaybe 0 $ readMaybe f) a) (try $ string "</fn>")
   return (concat s)
 
 -- | Parses a color specification (hex or named)
-- 
cgit v1.2.3