From 40fc8649f6b4ec12b6bb83b6001ac34c23abb370 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Mon, 11 Jun 2007 18:11:52 +0200
Subject: Use catchIO in 'restart'

darcs-hash:20070611161152-a5988-1311671abda1c7edfa223255dff0128860b30d38
---
 XMonad.hs | 3 +--
 1 file changed, 1 insertion(+), 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 ()
-- 
cgit v1.2.3