From c632dce34c75bc7c245d300b3adb616b99950ad0 Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Wed, 4 Apr 2007 03:05:24 +0200
Subject: replace multiple gets with a single get and record bind

darcs-hash:20070404010524-9c5c1-ae8b8c6a6e47d6676fb1fa77d800eb6485ac3424.gz
---
 Main.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'Main.hs')

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)
-- 
cgit v1.2.3