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/X11/Parsers.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Xmobar/X11')

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