aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad.hs
diff options
context:
space:
mode:
authorDon Stewart <dons@cse.unsw.edu.au>2007-06-21 05:36:13 +0200
committerDon Stewart <dons@cse.unsw.edu.au>2007-06-21 05:36:13 +0200
commitfb09d71524ab2349bb235ac6fd655bd290b614cd (patch)
tree2d0deb3b04f2df0807b1b77c43e95e19bbbf75ea /XMonad.hs
parent9ce9a7add56f3ffda5f3f52edabc5e647712ff00 (diff)
downloadxmonad-fb09d71524ab2349bb235ac6fd655bd290b614cd.tar.gz
xmonad-fb09d71524ab2349bb235ac6fd655bd290b614cd.tar.xz
xmonad-fb09d71524ab2349bb235ac6fd655bd290b614cd.zip
minor tweaks, ideas from joachim.fasting@
darcs-hash:20070621033613-9c5c1-51e25d524c5a54aafbab14f55b3b155c558195d2.gz
Diffstat (limited to '')
-rw-r--r--XMonad.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad.hs b/XMonad.hs
index 6242b40..7914782 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -182,7 +182,7 @@ spawn x = io $ do
-- current window state.
restart :: Maybe String -> Bool -> X ()
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 []
catchIO (executeFile prog True args Nothing)