diff options
Diffstat (limited to 'XMonad')
| -rw-r--r-- | XMonad/Util/Font.hsc | 4 | ||||
| -rw-r--r-- | XMonad/Util/Paste.hs | 2 | ||||
| -rw-r--r-- | XMonad/Util/XSelection.hs | 2 |
3 files changed, 4 insertions, 4 deletions
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, (.&.), (.|.)) |