diff options
| author | Spencer Janssen <spencerjanssen@gmail.com> | 2008-10-07 11:46:41 +0200 |
|---|---|---|
| committer | Spencer Janssen <spencerjanssen@gmail.com> | 2008-10-07 11:46:41 +0200 |
| commit | 27c8f42e9fc273d70a3e3be6c08e8a601787de7e (patch) | |
| tree | 9f30e91c93fe5fe11ece80b29a1da5ec19fe95da /XMonad | |
| parent | 801fbda885f7d6121435bc51e90aad6e108e410e (diff) | |
| download | metatile-27c8f42e9fc273d70a3e3be6c08e8a601787de7e.tar metatile-27c8f42e9fc273d70a3e3be6c08e8a601787de7e.zip | |
Fix haddock
darcs-hash:20081007094641-25a6b-4aebffca5c24d112974558f4782ea865bcf37003
Diffstat (limited to 'XMonad')
| -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) && |