From 2d07995ad8a65525273e5f079662e7c91f65c697 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Thu, 1 Nov 2007 09:21:55 +0100
Subject: Add readsLayout, remove the existential from XConfig

darcs-hash:20071101082155-a5988-82be25ec6b35cb1d39e0613b3d810dfd75836098.gz
---
 Operations.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Operations.hs')

diff --git a/Operations.hs b/Operations.hs
index ae6d8e1..b911cf5 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -342,11 +342,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 :: LayoutClass l Window => l Window -> X ()
+setLayout :: Layout 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 = Layout l } } }
+    windows $ const $ ss {W.current = c { W.workspace = ws { W.layout = l } } }
 
 ------------------------------------------------------------------------
 -- Utilities
-- 
cgit v1.2.3