mirror of
https://github.com/xmonad/xmonad.git
synced 2025-07-31 20:21:52 -07:00
replace multiple gets with a single get and record bind
This commit is contained in:
3
Main.hs
3
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)
|
||||
|
Reference in New Issue
Block a user