From b06481c9bbfe05b64632695e13b24447d3ce21c6 Mon Sep 17 00:00:00 2001
From: Khudyakov Alexey <alexey.skladnoy@gmail.com>
Date: Fri, 20 Feb 2009 19:41:37 +0100
Subject: Properly encode destop names before sending them to X server in
 XMonad.Hooks.EwmhDesktops

Ignore-this: 6a22ea8bdc49f8484e18f04aaeb545ae

darcs-hash:20090220184137-7ba7e-e2eb4702acb468ade70e78e22b32c3137ba7214d.gz
---
 XMonad/Hooks/EwmhDesktops.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'XMonad')

diff --git a/XMonad/Hooks/EwmhDesktops.hs b/XMonad/Hooks/EwmhDesktops.hs
index 00d9b89..d17c3c4 100644
--- a/XMonad/Hooks/EwmhDesktops.hs
+++ b/XMonad/Hooks/EwmhDesktops.hs
@@ -20,6 +20,7 @@ module XMonad.Hooks.EwmhDesktops (
     ewmhDesktopsEventHook
     ) where
 
+import Codec.Binary.UTF8.String (encode)
 import Data.List
 import Data.Maybe
 import Data.Monoid
@@ -175,8 +176,7 @@ setDesktopNames names = withDisplay $ \dpy -> do
     r <- asks theRoot
     a <- getAtom "_NET_DESKTOP_NAMES"
     c <- getAtom "UTF8_STRING"
-    let names' = map (fromIntegral.fromEnum) $
-            concatMap (++['\0']) names
+    let names' = map fromIntegral $ concatMap ((++[0]) . encode) names
     io $ changeProperty8 dpy r a c propModeReplace names'
 
 setClientList :: [Window] -> X ()
-- 
cgit v1.2.3