diff options
| author | jao <jao@gnu.org> | 2020-10-09 17:51:07 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2020-10-09 17:51:07 +0100 |
| commit | 407866c433735e510b6bde2d06e2a18cff22c470 (patch) | |
| tree | f7f73bc4f30f52844f5582c321e97d0375dce1b2 /src/Xmobar/Config | |
| parent | e71512b7c961ab379aee98c2f4d65ad4bdd3c5bf (diff) | |
| download | xmobar-407866c433735e510b6bde2d06e2a18cff22c470.tar.gz xmobar-407866c433735e510b6bde2d06e2a18cff22c470.tar.bz2 | |
hlinting
Diffstat (limited to 'src/Xmobar/Config')
| -rw-r--r-- | src/Xmobar/Config/Parse.hs | 5 |
1 files changed, 3 insertions, 2 deletions
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 |