diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-19 17:20:29 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-19 17:20:29 +0100 |
| commit | 5e90aa32654513e220760962c9d5add4905fd115 (patch) | |
| tree | 991d5776074b25713c249bee2fa6a92d2b918c13 /XMonad/Core.hs | |
| parent | 0bc907e32f85c91c4e2433056be6ee73a167ac7b (diff) | |
| download | xmonad-5e90aa32654513e220760962c9d5add4905fd115.tar.gz xmonad-5e90aa32654513e220760962c9d5add4905fd115.tar.xz xmonad-5e90aa32654513e220760962c9d5add4905fd115.zip | |
Flush pending X calls before restarting
darcs-hash:20071219162029-a5988-a7a299e39dbb3acd59f1a024ddec2d1462ea258d.gz
Diffstat (limited to 'XMonad/Core.hs')
| -rw-r--r-- | XMonad/Core.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/XMonad/Core.hs b/XMonad/Core.hs index cc39b94..d2195d6 100644 --- a/XMonad/Core.hs +++ b/XMonad/Core.hs @@ -332,6 +332,7 @@ runOnWorkspaces job =do restart :: Maybe String -> Bool -> X () restart mprog resume = do broadcastMessage ReleaseResources + io . flush =<< asks display prog <- maybe (io getProgName) return mprog args <- if resume then gets (("--resume":) . return . showWs . windowset) else return [] catchIO (executeFile prog True args Nothing) |