diff options
| -rw-r--r-- | XMonad/Actions/UpdatePointer.hs | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/XMonad/Actions/UpdatePointer.hs b/XMonad/Actions/UpdatePointer.hs index 1caf3c2..d66f1a4 100644 --- a/XMonad/Actions/UpdatePointer.hs +++ b/XMonad/Actions/UpdatePointer.hs @@ -90,12 +90,6 @@ moveWithin now lower upper = then upper else now -pointWithin :: Position -> Position -> Rectangle -> Bool -pointWithin x y r = x >= rect_x r && - x < rect_x r + fi (rect_width r) && - y >= rect_y r && - y < rect_y r + fi (rect_height r) - fi :: (Num b, Integral a) => a -> b fi = fromIntegral |