setLayout should not call sendMessage, because sendMessage calls windows

darcs-hash:20070928011510-a5988-1f7a4c6cabb0d7318044fd3da40dce2d5482c41a

1 files changed, 3 insertions, 3 deletions

diff --git a/Operations.hs b/Operations.hs
index ee1fd80..3deb4ad 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -329,9 +329,9 @@ instance Message Event
 -- | Set the layout of the currently viewed workspace
 setLayout :: SomeLayout Window -> X ()
 setLayout l = do
-    sendMessage ReleaseResources
-    windows $ \ss@(W.StackSet { W.current = c@(W.Screen { W.workspace = ws })})
-              -> ss {W.current = c { W.workspace = ws { W.layout = l } } }
+    ss@(W.StackSet { W.current = c@(W.Screen { W.workspace = ws })}) <- gets windowset
+    handleMessage (W.layout ws) (SomeMessage ReleaseResources)
+    windows $ const $ ss {W.current = c { W.workspace = ws { W.layout = l } } }
 
 -- Layout selection manager