twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-28 01:33:47 -07:00
Code Issues Packages Projects Releases Wiki Activity

restart: don't preserve old args

Browse Source
This commit is contained in:
Spencer Janssen
2007-05-22 06:03:57 +00:00
parent 865939b660
commit 0df8dffc78
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
XMonad.hs
View File

@@ -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