summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/Plugins/EWMH.hs
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-05-12 23:14:59 +0100
committerjao <jao@gnu.org>2022-05-12 23:14:59 +0100
commit88017cacad159d826ea8a502e062da079f75e3a2 (patch)
tree81a35f53da0f5630bb59610736e07b96c6a8fd8a /src/Xmobar/Plugins/EWMH.hs
parentccffb16e0f254db3c07033fafed0d397f005b902 (diff)
downloadxmobar-88017cacad159d826ea8a502e062da079f75e3a2.tar.gz
xmobar-88017cacad159d826ea8a502e062da079f75e3a2.tar.bz2
Remove the now useless -DUTF8 flag
Diffstat (limited to 'src/Xmobar/Plugins/EWMH.hs')
-rw-r--r--src/Xmobar/Plugins/EWMH.hs10
1 files changed, 0 insertions, 10 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