diff options
author | David Roundy <droundy@darcs.net> | 2007-11-08 20:23:18 +0100 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-11-08 20:23:18 +0100 |
commit | bdcab48838281cb157b5d8bc9d4a2e53d86412d1 (patch) | |
tree | 9e43d501bae4e5090f6e99c4832cc59761daf302 /XMonad/Hooks | |
parent | 53e3b7f51523661ee4d76aa2d70ced4d4639898c (diff) | |
download | XMonadContrib-bdcab48838281cb157b5d8bc9d4a2e53d86412d1.tar.gz XMonadContrib-bdcab48838281cb157b5d8bc9d4a2e53d86412d1.tar.xz XMonadContrib-bdcab48838281cb157b5d8bc9d4a2e53d86412d1.zip |
fix types to work with Mats fix to X11.
darcs-hash:20071108192318-72aca-e3a1bd0fb08a79e6a7b185bcfae7babf0bcb3a50.gz
Diffstat (limited to '')
-rw-r--r-- | XMonad/Hooks/SetWMName.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/XMonad/Hooks/SetWMName.hs b/XMonad/Hooks/SetWMName.hs index 30bb4ce..0e2fdcf 100644 --- a/XMonad/Hooks/SetWMName.hs +++ b/XMonad/Hooks/SetWMName.hs @@ -41,7 +41,7 @@ import Data.Bits ((.|.)) import Data.Char (ord) import Data.List (nub) import Data.Maybe (fromJust, listToMaybe, maybeToList) -import Data.Word (Word8) +import Foreign.C.Types (CChar) import Foreign.Marshal.Alloc (alloca) @@ -65,7 +65,7 @@ setWMName name = do -- _NET_SUPPORTING_WM_CHECK atom of root and support windows refers to the support window mapM_ (\w -> changeProperty32 dpy w atom_NET_SUPPORTING_WM_CHECK wINDOW 0 [fromIntegral supportWindow]) [root, supportWindow] -- set WM_NAME in supportWindow (now only accepts latin1 names to eliminate dependency on utf8 encoder) - changeProperty8 dpy supportWindow atom_NET_WM_NAME atom_UTF8_STRING 0 (latin1StringToWord8List name) + changeProperty8 dpy supportWindow atom_NET_WM_NAME atom_UTF8_STRING 0 (latin1StringToCCharList name) -- declare which _NET protocols are supported (append to the list if it exists) supportedList <- fmap (join . maybeToList) $ getWindowProperty32 dpy atom_NET_SUPPORTED_ATOM root changeProperty32 dpy root atom_NET_SUPPORTED_ATOM aTOM 0 (nub $ fromIntegral atom_NET_SUPPORTING_WM_CHECK : fromIntegral atom_NET_WM_NAME : supportedList) @@ -73,8 +73,8 @@ setWMName name = do netSupportingWMCheckAtom :: X Atom netSupportingWMCheckAtom = getAtom "_NET_SUPPORTING_WM_CHECK" - latin1StringToWord8List :: String -> [Word8] - latin1StringToWord8List str = map (fromIntegral . ord) str + latin1StringToCCharList :: String -> [CChar] + latin1StringToCCharList str = map (fromIntegral . ord) str getSupportWindow :: X Window getSupportWindow = withDisplay $ \dpy -> do |