replace multiple gets with a single get and record bind

darcs-hash:20070404010524-9c5c1-ae8b8c6a6e47d6676fb1fa77d800eb6485ac3424.gz

1 files changed, 1 insertions, 2 deletions

diff --git a/Main.hs b/Main.hs
index 1e2cd70..c259d74 100644
--- a/Main.hs
+++ b/Main.hs
@@ -169,8 +169,7 @@ handle e@(CrossingEvent {event_type = t})
 
 -- configure a window
 handle e@(ConfigureRequestEvent {window = w}) = do
-    dpy <- gets display
-    ws  <- gets workspace
+    XState { display = dpy, workspace = ws } <- get
 
     when (W.member w ws) $ -- already managed, reconfigure (see client:configure()
         trace ("Reconfigure already managed window: " ++ show w)