From 169cc9b32475c25bc5a7e9342aa3098ee776c0ad Mon Sep 17 00:00:00 2001
From: Jason Creighton <jcreigh@gmail.com>
Date: Thu, 19 Apr 2007 05:22:44 +0200
Subject: use prefixed record names in latest X11-extras

darcs-hash:20070419032244-b9aa7-b3a4ef75d313d5c960775a75ddc91dbdae6485c7
---
 Operations.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Operations.hs')

diff --git a/Operations.hs b/Operations.hs
index 9c85872..17280a2 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -146,7 +146,7 @@ setButtonGrab False w = withDisplay $ \d -> io $
 -- rectangle, including its border.
 moveWindowInside :: Display -> Window -> Rectangle -> IO ()
 moveWindowInside d w r = do
-    bw <- (fromIntegral . waBorderWidth) `liftM` getWindowAttributes d w
+    bw <- (fromIntegral . wa_border_width) `liftM` getWindowAttributes d w
     moveResizeWindow d w (rect_x r) (rect_y r)
                          (rect_width  r - bw*2)
                          (rect_height r - bw*2)
-- 
cgit v1.2.3