From 15a78ae7154f8b31d7248df6db83b55a3a8c7115 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <spencerjanssen@gmail.com>
Date: Tue, 7 Oct 2008 09:46:41 +0000
Subject: [PATCH] Fix haddock

---
 XMonad/Operations.hs | 4 ++--
 1 file 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) &&