From 407866c433735e510b6bde2d06e2a18cff22c470 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Fri, 9 Oct 2020 17:51:07 +0100
Subject: hlinting

---
 src/Xmobar/Config/Parse.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/Xmobar/Config')

diff --git a/src/Xmobar/Config/Parse.hs b/src/Xmobar/Config/Parse.hs
index 00ce99c..056f3fc 100644
--- a/src/Xmobar/Config/Parse.hs
+++ b/src/Xmobar/Config/Parse.hs
@@ -2,7 +2,7 @@
 ------------------------------------------------------------------------------
 -- |
 -- Module: Xmobar.Config.Parse
--- Copyright: (c) 2018 Jose Antonio Ortega Ruiz
+-- Copyright: (c) 2018, 2020 Jose Antonio Ortega Ruiz
 -- License: BSD3-style (see LICENSE)
 --
 -- Maintainer: jao@gnu.org
@@ -22,6 +22,7 @@ import Text.ParserCombinators.Parsec
 import Text.ParserCombinators.Parsec.Number (int)
 import Text.ParserCombinators.Parsec.Perm ((<|?>), (<$?>), permute)
 import Control.Monad.IO.Class (liftIO)
+import Data.Functor ((<&>))
 
 import Xmobar.Config.Types
 
@@ -174,4 +175,4 @@ commandsErr = "commands: this usually means that a command could not" ++
 -- parsed.
 readConfig :: Config -> FilePath -> IO (Either ParseError (Config,[String]))
 readConfig defaultConfig f =
-  liftIO (readFileSafe f) >>= return . parseConfig defaultConfig
+  liftIO (readFileSafe f) <&> parseConfig defaultConfig
-- 
cgit v1.2.3