aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@unibz.it>2007-10-12 12:05:51 +0200
committerAndrea Rossato <andrea.rossato@unibz.it>2007-10-12 12:05:51 +0200
commit4b5b03b1eff01ca71b48087a0307568563eb71f4 (patch)
tree1f9030eab125b80963d700be73830b60c0fec058
parent2075209956b31a2aeac4acacc2d49c3d963b9d15 (diff)
downloadxmonad-4b5b03b1eff01ca71b48087a0307568563eb71f4.tar.gz
xmonad-4b5b03b1eff01ca71b48087a0307568563eb71f4.tar.xz
xmonad-4b5b03b1eff01ca71b48087a0307568563eb71f4.zip
Haddox fix
darcs-hash:20071012100551-32816-f917f377ed65aecab28cf421f203c13903e9a5ac.gz
-rw-r--r--Operations.hs2
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