From 407866c433735e510b6bde2d06e2a18cff22c470 Mon Sep 17 00:00:00 2001 From: jao Date: Fri, 9 Oct 2020 17:51:07 +0100 Subject: hlinting --- src/Xmobar/App/Config.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Xmobar/App/Config.hs') diff --git a/src/Xmobar/App/Config.hs b/src/Xmobar/App/Config.hs index a183128..d17577e 100644 --- a/src/Xmobar/App/Config.hs +++ b/src/Xmobar/App/Config.hs @@ -21,6 +21,7 @@ module Xmobar.App.Config (defaultConfig, xmobarConfigFile) where import Control.Monad (when, filterM) +import Data.Functor ((<&>)) import System.Environment import System.Directory @@ -105,7 +106,7 @@ findFirstDirOf create possibles = do go [] = return Nothing go (x:xs) = do exists <- x >>= doesDirectoryExist - if exists then x >>= return . Just else go xs + if exists then x <&> Just else go xs -- | Simple wrapper around @findFirstDirOf@ that allows the primary -- path to be specified by an environment variable. -- cgit v1.2.3