diff options
author | Don Stewart <dons@cse.unsw.edu.au> | 2007-04-04 03:05:24 +0200 |
---|---|---|
committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-04-04 03:05:24 +0200 |
commit | be4ba8554670804a4f7086c2dc618511026306d8 (patch) | |
tree | f1deccc7e6ac38be9728f43240ab67c41e122cb1 /Main.hs | |
parent | 95d72415b86cd4d3b8797c764f8075b4af505fea (diff) | |
download | metatile-be4ba8554670804a4f7086c2dc618511026306d8.tar metatile-be4ba8554670804a4f7086c2dc618511026306d8.zip |
replace multiple gets with a single get and record bind
darcs-hash:20070404010524-9c5c1-ae8b8c6a6e47d6676fb1fa77d800eb6485ac3424
Diffstat (limited to 'Main.hs')
-rw-r--r-- | Main.hs | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -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) |