twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-17 13:24:14 -07:00
Code Issues Packages Projects Releases Wiki Activity

Replace liftM2 with liftA2

Browse Source
This commit is contained in:
slotThe
2019-10-08 10:41:14 +02:00
parent 53b57eba14
commit 0b26ddf489
9 changed files with 19 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
XMonad/Prompt/DirExec.hs
View File

@@ -26,6 +26,7 @@ module XMonad.Prompt.DirExec
import Control.Exception as E
import System.Directory
import Control.Applicative (liftA2)
import Control.Monad
import Data.List
import XMonad
@@ -100,7 +101,7 @@ getDirectoryExecutables :: FilePath -> IO [String]
getDirectoryExecutables path =
(getDirectoryContents path >>=
filterM (\x -> let x' = path ++ x in
liftM2 (&&)
liftA2 (&&)
(doesFileExist x')
(liftM executable (getPermissions x'))))
`E.catch` econst []