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

Minor style change.

Browse Source
This commit is contained in:
Spencer Janssen
2007-05-30 18:10:06 +00:00
parent fc08bd48b4
commit b069f84add
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad.hs
View File

@@ -150,7 +150,7 @@ restart mprog resume = do
prog <- maybe (io $ getProgName) return mprog prog <- maybe (io $ getProgName) return mprog
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 Nothing)
( (hPutStrLn stderr). show ) -- print executable not found exception (hPutStrLn stderr . show) -- print 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
whenJust :: Maybe a -> (a -> X ()) -> X () whenJust :: Maybe a -> (a -> X ()) -> X ()