twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-16 12:33:47 -07:00
Code Issues Packages Projects Releases Wiki Activity

Fix haddock

Browse Source
This commit is contained in:
Spencer Janssen
2008-10-07 09:46:41 +00:00
parent 18444799e0
commit 15a78ae715
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad/Operations.hs
View File

@@ -429,8 +429,8 @@ pointScreen :: Position -> Position
pointScreen x y = withWindowSet $ return . find p . W.screens pointScreen x y = withWindowSet $ return . find p . W.screens
where p = pointWithin x y . screenRect . W.screenDetail where p = pointWithin x y . screenRect . W.screenDetail
-- | 'pointWithin x y r' returns 'True' if the '(x, y)' co-ordinate is within -- | @pointWithin x y r@ returns 'True' if the @(x, y)@ co-ordinate is within
-- the 'Rectangle'. -- @r@.
pointWithin :: Position -> Position -> Rectangle -> Bool pointWithin :: Position -> Position -> Rectangle -> Bool
pointWithin x y r = x >= rect_x r && pointWithin x y r = x >= rect_x r &&
x < rect_x r + fromIntegral (rect_width r) && x < rect_x r + fromIntegral (rect_width r) &&