aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-05-22 08:03:57 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-05-22 08:03:57 +0200
commit29a641c35380d44dea54fd44d63d072b9a5937ce (patch)
treed4dc2760468b0f58447aa2985b2d1c78fd750d43
parentca236563a95d048c177183897dd96c8061d24303 (diff)
downloadxmonad-29a641c35380d44dea54fd44d63d072b9a5937ce.tar.gz
xmonad-29a641c35380d44dea54fd44d63d072b9a5937ce.tar.xz
xmonad-29a641c35380d44dea54fd44d63d072b9a5937ce.zip
restart: don't preserve old args
darcs-hash:20070522060357-a5988-037eb7484106de44a541f21c41d15c2050e94760.gz
-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