From 27c8f42e9fc273d70a3e3be6c08e8a601787de7e Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Tue, 7 Oct 2008 11:46:41 +0200 Subject: Fix haddock darcs-hash:20081007094641-25a6b-4aebffca5c24d112974558f4782ea865bcf37003 --- XMonad/Operations.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'XMonad/Operations.hs') 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) && -- cgit v1.2.3