twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-13 02:55:46 -07:00
Code Issues Packages Projects Releases Wiki Activity

Haddox fix

Browse Source
This commit is contained in:
Andrea Rossato
2007-10-12 10:05:51 +00:00
parent 1f625a6c0d
commit 49f64197b2
1 changed files with 1 additions and 1 deletions

2
Operations.hs

@@ -532,7 +532,7 @@ floatLocation w = withDisplay $ \d -> do
ws <- gets windowset
wa <- io $ getWindowAttributes d w
-- | XXX horrible
-- XXX horrible
let sc = fromMaybe (W.current ws) $ find (pointWithin (fi $ wa_x wa) (fi $ wa_y wa) . screenRect . W.screenDetail) $ W.screens ws
sr = screenRect . W.screenDetail $ sc
bw = fi . wa_border_width $ wa