From 4b5b03b1eff01ca71b48087a0307568563eb71f4 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Fri, 12 Oct 2007 12:05:51 +0200
Subject: Haddox fix

darcs-hash:20071012100551-32816-f917f377ed65aecab28cf421f203c13903e9a5ac.gz
---
 Operations.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Operations.hs')

diff --git a/Operations.hs b/Operations.hs
index f2f6b47..223257d 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -532,7 +532,7 @@ floatLocation w = withDisplay $ \d -> do
     ws <- gets windowset
     wa <- io $ getWindowAttributes d w
 
-    -- | XXX horrible
+    -- XXX horrible
     let sc = fromMaybe (W.current ws) $ find (pointWithin (fi $ wa_x wa) (fi $ wa_y wa) . screenRect . W.screenDetail) $ W.screens ws
         sr = screenRect . W.screenDetail $ sc
         bw = fi . wa_border_width $ wa
-- 
cgit v1.2.3