make setLayout a bit more inclusive.

darcs-hash:20071024231250-72aca-b407b2f80824b9506c1b81dd3da73c14092fb815

1 files changed, 2 insertions, 2 deletions

diff --git a/Operations.hs b/Operations.hs
index 4f5cd4b..8dbb5b4 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -346,11 +346,11 @@ runOnWorkspaces job =do
     modify $ \s -> s { windowset = ws { W.current = c, W.visible = v, W.hidden = h } }
 
 -- | Set the layout of the currently viewed workspace
-setLayout :: Layout Window -> X ()
+setLayout :: LayoutClass l Window => l Window -> X ()
 setLayout l = do
     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 } } }
+    windows $ const $ ss {W.current = c { W.workspace = ws { W.layout = Layout l } } }
 
 -- | X Events are valid Messages
 instance Message Event