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 | c2d192bb5a18f539d17a0427981c10c253b5374e (patch) | |
| tree | 991d5776074b25713c249bee2fa6a92d2b918c13 | |
| parent | aa3bcc30d837719840064a1ed0972929c2bcde50 (diff) | |
| download | metatile-c2d192bb5a18f539d17a0427981c10c253b5374e.tar metatile-c2d192bb5a18f539d17a0427981c10c253b5374e.zip | |
Flush pending X calls before restarting
darcs-hash:20071219162029-a5988-a7a299e39dbb3acd59f1a024ddec2d1462ea258d
| -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) |