diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-11 18:11:52 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-11 18:11:52 +0200 |
| commit | 3509a4f94a214a51cd69bdbd1f65c1ef3d086a16 (patch) | |
| tree | 5695a595dc38a88630f50837aee1256ebc5a3f4a /XMonad.hs | |
| parent | 89e27deb6dc0498a2af339ce9bed1af3c0c86947 (diff) | |
| download | xmonad-3509a4f94a214a51cd69bdbd1f65c1ef3d086a16.tar.gz xmonad-3509a4f94a214a51cd69bdbd1f65c1ef3d086a16.tar.xz xmonad-3509a4f94a214a51cd69bdbd1f65c1ef3d086a16.zip | |
Use catchIO in 'restart'
darcs-hash:20070611161152-a5988-1311671abda1c7edfa223255dff0128860b30d38.gz
Diffstat (limited to 'XMonad.hs')
| -rw-r--r-- | XMonad.hs | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -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 () |