replace multiple gets with a single get and record bind

This commit is contained in:
Don Stewart
2007-04-04 01:05:24 +00:00
parent 3a592d2df8
commit 0ba47579c9
2 changed files with 10 additions and 18 deletions

View File

@@ -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)