summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/Plugins
diff options
context:
space:
mode:
Diffstat (limited to 'src/Xmobar/Plugins')
-rw-r--r--src/Xmobar/Plugins/EWMH.hs10
-rw-r--r--src/Xmobar/Plugins/XMonadLog.hs11
2 files changed, 0 insertions, 21 deletions
diff --git a/src/Xmobar/Plugins/EWMH.hs b/src/Xmobar/Plugins/EWMH.hs
index 6440940..94fd7d7 100644
--- a/src/Xmobar/Plugins/EWMH.hs
+++ b/src/Xmobar/Plugins/EWMH.hs
@@ -23,11 +23,7 @@ import Control.Monad.Reader
import Graphics.X11 hiding (Modifier, Color)
import Graphics.X11.Xlib.Extras
import Xmobar.Run.Exec
-#ifdef UTF8
-#undef UTF8
import Codec.Binary.UTF8.String as UTF8
-#define UTF8
-#endif
import Foreign.C (CChar, CLong)
import Xmobar.X11.Events (nextEvent')
@@ -256,10 +252,4 @@ updateDesktop w = do
_ -> return ()
decodeCChar :: [CChar] -> String
-#ifdef UTF8
-#undef UTF8
decodeCChar = UTF8.decode . map fromIntegral
-#define UTF8
-#else
-decodeCChar = map (toEnum . fromIntegral)
-#endif
diff --git a/src/Xmobar/Plugins/XMonadLog.hs b/src/Xmobar/Plugins/XMonadLog.hs
index d887aad..e1459e1 100644
--- a/src/Xmobar/Plugins/XMonadLog.hs
+++ b/src/Xmobar/Plugins/XMonadLog.hs
@@ -23,12 +23,7 @@ import Graphics.X11.Xlib.Extras
import Xmobar.Run.Exec
import Xmobar.Run.Actions (stripActions)
-#ifdef UTF8
-#undef UTF8
import Codec.Binary.UTF8.String as UTF8
-#define UTF8
-#endif
-
import Foreign.C (CChar)
import Data.List (intercalate)
import Xmobar.X11.Events (nextEvent')
@@ -86,10 +81,4 @@ instance Exec XMonadLog where
return ()
decodeCChar :: [CChar] -> String
-#ifdef UTF8
-#undef UTF8
decodeCChar = UTF8.decode . map fromIntegral
-#define UTF8
-#else
-decodeCChar = map (toEnum . fromIntegral)
-#endif