restart: don't preserve old args

darcs-hash:20070522060357-a5988-037eb7484106de44a541f21c41d15c2050e94760.gz

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