diff options
| -rw-r--r-- | XMonad/Operations.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Operations.hs b/XMonad/Operations.hs index 8c10e13..40a1a38 100644 --- a/XMonad/Operations.hs +++ b/XMonad/Operations.hs @@ -429,8 +429,8 @@ pointScreen :: Position -> Position pointScreen x y = withWindowSet $ return . find p . W.screens where p = pointWithin x y . screenRect . W.screenDetail --- | 'pointWithin x y r' returns 'True' if the '(x, y)' co-ordinate is within --- the 'Rectangle'. +-- | @pointWithin x y r@ returns 'True' if the @(x, y)@ co-ordinate is within +-- @r@. pointWithin :: Position -> Position -> Rectangle -> Bool pointWithin x y r = x >= rect_x r && x < rect_x r + fromIntegral (rect_width r) && |