summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--XMonad.hs7
1 files changed, 3 insertions, 4 deletions
diff --git a/XMonad.hs b/XMonad.hs
index 1484bf6..fe82dcb 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -150,10 +150,9 @@ spawn x = io $ do
-- current window state.
restart :: Maybe String -> Bool -> X ()
restart mprog resume = do
- prog <- maybe (io $ getProgName) return mprog
- args <- io $ getArgs
- args' <- if resume then gets (("--resume":) . return . show . windowset) else return []
- io $ catch (executeFile prog True (args' ++ args) Nothing)
+ prog <- maybe (io $ getProgName) return mprog
+ args <- if resume then gets (("--resume":) . return . show . windowset) else return []
+ io $ catch (executeFile prog True args Nothing)
(const $ return ()) -- ignore executable not found exception
-- | Run a side effecting action with the current workspace. Like 'when' but