twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-30 18: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

5
XMonad.hs
View File

@@ -151,9 +151,8 @@ spawn x = io $ do
restart :: Maybe String -> Bool -> X () restart :: Maybe String -> Bool -> X ()
restart mprog resume = do restart mprog resume = do
prog <- maybe (io $ getProgName) return mprog prog <- maybe (io $ getProgName) return mprog
args <- io $ getArgs args <- if resume then gets (("--resume":) . return . show . windowset) else return []
args' <- if resume then gets (("--resume":) . return . show . windowset) else return [] io $ catch (executeFile prog True args Nothing)
io $ catch (executeFile prog True (args' ++ args) Nothing)
(const $ return ()) -- ignore executable not found exception (const $ return ()) -- ignore executable not found exception
-- | Run a side effecting action with the current workspace. Like 'when' but -- | Run a side effecting action with the current workspace. Like 'when' but