From 5e90aa32654513e220760962c9d5add4905fd115 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Wed, 19 Dec 2007 17:20:29 +0100
Subject: Flush pending X calls before restarting

darcs-hash:20071219162029-a5988-a7a299e39dbb3acd59f1a024ddec2d1462ea258d.gz
---
 XMonad/Core.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'XMonad/Core.hs')

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)
-- 
cgit v1.2.3