Use catchIO in 'restart'

darcs-hash:20070611161152-a5988-1311671abda1c7edfa223255dff0128860b30d38

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 ()