diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2007-10-12 12:05:51 +0200 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2007-10-12 12:05:51 +0200 |
| commit | 4b5b03b1eff01ca71b48087a0307568563eb71f4 (patch) | |
| tree | 1f9030eab125b80963d700be73830b60c0fec058 /Operations.hs | |
| parent | 2075209956b31a2aeac4acacc2d49c3d963b9d15 (diff) | |
| download | xmonad-4b5b03b1eff01ca71b48087a0307568563eb71f4.tar.gz xmonad-4b5b03b1eff01ca71b48087a0307568563eb71f4.tar.xz xmonad-4b5b03b1eff01ca71b48087a0307568563eb71f4.zip | |
Haddox fix
darcs-hash:20071012100551-32816-f917f377ed65aecab28cf421f203c13903e9a5ac.gz
Diffstat (limited to 'Operations.hs')
| -rw-r--r-- | Operations.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Operations.hs b/Operations.hs index f2f6b47..223257d 100644 --- a/Operations.hs +++ b/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 |