aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad.hs
diff options
context:
space:
mode:
Diffstat (limited to 'XMonad.hs')
-rw-r--r--XMonad.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/XMonad.hs b/XMonad.hs
index 818586f..48f49ca 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -218,8 +218,9 @@ spawn x = io $ do
restart :: Maybe String -> Bool -> X ()
restart mprog resume = do
prog <- maybe (io getProgName) return mprog
- args <- if resume then gets (("--resume":) . return . show . windowset) else return []
+ args <- if resume then gets (("--resume":) . return . showWs . windowset) else return []
catchIO (executeFile prog True args Nothing)
+ where showWs = show . mapLayout show
-- | Run a side effecting action with the current workspace. Like 'when' but
whenJust :: Maybe a -> (a -> X ()) -> X ()