summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--XMonad.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/XMonad.hs b/XMonad.hs
index 7258fbb..0cc0a63 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -163,8 +163,7 @@ restart :: Maybe String -> Bool -> X ()
restart mprog resume = do
prog <- maybe (io $ getProgName) return mprog
args <- if resume then gets (("--resume":) . return . show . windowset) else return []
- io $ catch (executeFile prog True args Nothing)
- (hPutStrLn stderr . show) -- print executable not found exception
+ catchIO (executeFile prog True args Nothing)
-- | Run a side effecting action with the current workspace. Like 'when' but
whenJust :: Maybe a -> (a -> X ()) -> X ()