From 53e3b7f51523661ee4d76aa2d70ced4d4639898c Mon Sep 17 00:00:00 2001
From: Mats Jansborg <mats@jansb.org>
Date: Thu, 1 Nov 2007 20:27:30 +0100
Subject: Change the type of properties from Word32 to CLong

darcs-hash:20071101192730-7344d-1cfbaa5597e39a9fa46b661fd5c110629db3912c.gz
---
 XMonad/Hooks/ManageDocks.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'XMonad/Hooks/ManageDocks.hs')

diff --git a/XMonad/Hooks/ManageDocks.hs b/XMonad/Hooks/ManageDocks.hs
index 09e52e2..a512379 100644
--- a/XMonad/Hooks/ManageDocks.hs
+++ b/XMonad/Hooks/ManageDocks.hs
@@ -45,7 +45,7 @@ import XMonad.Operations
 import qualified XMonad.StackSet as W
 import Graphics.X11.Xlib
 import Graphics.X11.Xlib.Extras
-import Data.Word (Word32)
+import Foreign.C.Types (CLong)
 import Data.Maybe (catMaybes)
 
 -- $usage
@@ -109,7 +109,7 @@ getStrut w = do
 
 -- |
 -- Helper to read a property
-getProp :: Atom -> Window -> X (Maybe [Word32])
+getProp :: Atom -> Window -> X (Maybe [CLong])
 getProp a w = withDisplay $ \dpy -> io $ getWindowProperty32 dpy a w
 
 -- |
-- 
cgit v1.2.3