aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Hooks
diff options
context:
space:
mode:
authorMats Jansborg <mats@jansb.org>2007-11-01 20:27:30 +0100
committerMats Jansborg <mats@jansb.org>2007-11-01 20:27:30 +0100
commit53e3b7f51523661ee4d76aa2d70ced4d4639898c (patch)
tree07e96e753208ca01716488374c9913d65b5144ab /XMonad/Hooks
parent7802891028dff79e7bfb14eaaaaf9ee5ebe312f3 (diff)
downloadXMonadContrib-53e3b7f51523661ee4d76aa2d70ced4d4639898c.tar.gz
XMonadContrib-53e3b7f51523661ee4d76aa2d70ced4d4639898c.tar.xz
XMonadContrib-53e3b7f51523661ee4d76aa2d70ced4d4639898c.zip
Change the type of properties from Word32 to CLong
darcs-hash:20071101192730-7344d-1cfbaa5597e39a9fa46b661fd5c110629db3912c.gz
Diffstat (limited to 'XMonad/Hooks')
-rw-r--r--XMonad/Hooks/ManageDocks.hs4
1 files changed, 2 insertions, 2 deletions
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
-- |