diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-09-28 03:15:10 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-09-28 03:15:10 +0200 |
| commit | 82d7ba408c51723e17b8f840031cd2cf008fbd5f (patch) | |
| tree | e69b4048f14f7ad11e0bfe2f2f7577f4ed6b9d5d /Operations.hs | |
| parent | d8a30ccc241cc400c5169b1ecea7b8278f7c0da2 (diff) | |
| download | xmonad-82d7ba408c51723e17b8f840031cd2cf008fbd5f.tar.gz xmonad-82d7ba408c51723e17b8f840031cd2cf008fbd5f.tar.xz xmonad-82d7ba408c51723e17b8f840031cd2cf008fbd5f.zip | |
setLayout should not call sendMessage, because sendMessage calls windows
darcs-hash:20070928011510-a5988-1f7a4c6cabb0d7318044fd3da40dce2d5482c41a.gz
Diffstat (limited to '')
| -rw-r--r-- | Operations.hs | 6 |
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 |