hlinting

1 files changed, 2 insertions, 1 deletions

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.