diff options
| author | Mats Jansborg <mats@jansb.org> | 2007-11-01 20:27:30 +0100 |
|---|---|---|
| committer | Mats Jansborg <mats@jansb.org> | 2007-11-01 20:27:30 +0100 |
| commit | 53e3b7f51523661ee4d76aa2d70ced4d4639898c (patch) | |
| tree | 07e96e753208ca01716488374c9913d65b5144ab /XMonad/Hooks/ManageDocks.hs | |
| parent | 7802891028dff79e7bfb14eaaaaf9ee5ebe312f3 (diff) | |
| download | XMonadContrib-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/ManageDocks.hs')
| -rw-r--r-- | XMonad/Hooks/ManageDocks.hs | 4 |
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 -- | |