diff options
Diffstat (limited to '')
-rw-r--r-- | XMonad/Prompt/DirExec.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/XMonad/Prompt/DirExec.hs b/XMonad/Prompt/DirExec.hs index 035f9b1..1600f93 100644 --- a/XMonad/Prompt/DirExec.hs +++ b/XMonad/Prompt/DirExec.hs @@ -23,12 +23,17 @@ module XMonad.Prompt.DirExec , dirExecPromptNamed ) where +import Prelude hiding (catch) +import Control.Exception import System.Directory import Control.Monad import Data.List import XMonad import XMonad.Prompt +econst :: Monad m => a -> IOException -> m a +econst = const . return + -- $usage -- 1. In your @~\/.xmonad\/xmonad.hs@: -- @@ -98,5 +103,4 @@ getDirectoryExecutables path = liftM2 (&&) (doesFileExist x') (liftM executable (getPermissions x')))) - `catch` (return . return . show) - + `catch` econst [] |