From 29a641c35380d44dea54fd44d63d072b9a5937ce Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Tue, 22 May 2007 08:03:57 +0200
Subject: restart: don't preserve old args

darcs-hash:20070522060357-a5988-037eb7484106de44a541f21c41d15c2050e94760.gz
---
 XMonad.hs | 7 +++----
 1 file 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
-- 
cgit v1.2.3