From 4d4d494ed4e8a815add619fb4faed31e907f3196 Mon Sep 17 00:00:00 2001
From: gwern0 <gwern0@gmail.com>
Date: Sun, 21 Sep 2008 17:40:14 +0200
Subject: -DUTF8 flag with -DUSE_UTF8

darcs-hash:20080921154014-f7719-42b0056cce0872dbd95dafcb07244a1bd8dabad1.gz
---
 XMonad/Util/Font.hsc      | 4 ++--
 XMonad/Util/Paste.hs      | 2 +-
 XMonad/Util/XSelection.hs | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'XMonad')

diff --git a/XMonad/Util/Font.hsc b/XMonad/Util/Font.hsc
index e9484e6..76bfebc 100644
--- a/XMonad/Util/Font.hsc
+++ b/XMonad/Util/Font.hsc
@@ -43,7 +43,7 @@ import Graphics.X11.Xft
 import Graphics.X11.Xrender
 #endif
 
-#if defined XFT || defined UTF8
+#if defined XFT || defined USE_UTF8
 import Codec.Binary.UTF8.String (encodeString, decodeString)
 #endif
 
@@ -103,7 +103,7 @@ initXMF s =
         return (Xft xftdraw)
   else
 #endif
-#ifdef UTF8
+#ifdef USE_UTF8
       fmap Utf8 $ initUtf8Font s
 #else
       fmap Core $ initCoreFont s
diff --git a/XMonad/Util/Paste.hs b/XMonad/Util/Paste.hs
index e57e6e8..e5c65e6 100644
--- a/XMonad/Util/Paste.hs
+++ b/XMonad/Util/Paste.hs
@@ -77,4 +77,4 @@ sendKeyWindow mods key w = withDisplay $ \d -> do
                   setKeyEvent ev w rootw none mods keycode True
                   sendEvent d w True keyPressMask ev
                   setEventType ev keyRelease
-                  sendEvent d w True keyReleaseMask ev
+                  sendEvent d w True keyReleaseMask ev
\ No newline at end of file
diff --git a/XMonad/Util/XSelection.hs b/XMonad/Util/XSelection.hs
index c9cb410..fdea2cf 100644
--- a/XMonad/Util/XSelection.hs
+++ b/XMonad/Util/XSelection.hs
@@ -30,7 +30,7 @@ import Data.Maybe (fromMaybe)
 import XMonad
 import XMonad.Util.Run (safeSpawn, unsafeSpawn)
 
-#ifdef UTF8
+#ifdef USE_UTF8
 import Codec.Binary.UTF8.String (decode)
 #else
 import Data.Bits (shiftL, (.&.), (.|.))
-- 
cgit v1.2.3