From 88017cacad159d826ea8a502e062da079f75e3a2 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Thu, 12 May 2022 23:14:59 +0100
Subject: Remove the now useless -DUTF8 flag

---
 src/Xmobar/Config/Parse.hs       |  4 ++--
 src/Xmobar/Plugins/EWMH.hs       | 10 ----------
 src/Xmobar/Plugins/XMonadLog.hs  | 11 -----------
 src/Xmobar/System/Localize.hsc   |  6 ------
 src/Xmobar/Text/SwaybarClicks.hs |  3 ---
 5 files changed, 2 insertions(+), 32 deletions(-)

(limited to 'src/Xmobar')

diff --git a/src/Xmobar/Config/Parse.hs b/src/Xmobar/Config/Parse.hs
index 89af808..65e1af8 100644
--- a/src/Xmobar/Config/Parse.hs
+++ b/src/Xmobar/Config/Parse.hs
@@ -26,12 +26,12 @@ import Data.Functor ((<&>))
 
 import Xmobar.Config.Types
 
-#if defined XFT || defined UTF8
+#ifdef XFT
 import qualified System.IO as S (readFile)
 #endif
 
 readFileSafe :: FilePath -> IO String
-#if defined XFT || defined UTF8
+#ifdef XFT
 readFileSafe = S.readFile
 #else
 readFileSafe = readFile
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
diff --git a/src/Xmobar/System/Localize.hsc b/src/Xmobar/System/Localize.hsc
index eec5e3b..84c4d45 100644
--- a/src/Xmobar/System/Localize.hsc
+++ b/src/Xmobar/System/Localize.hsc
@@ -25,9 +25,7 @@ import qualified System.Locale as L
 import qualified Data.Time.Format as L
 #endif
 
-#ifdef UTF8
 import Codec.Binary.UTF8.String
-#endif
 
 --  get localized strings
 type NlItem = CInt
@@ -48,12 +46,8 @@ foreign import ccall unsafe "langinfo.h nl_langinfo"
 getLangInfo :: NlItem -> IO String
 getLangInfo item = do
   itemStr <- nl_langinfo item
-#ifdef UTF8
   str <- peekCString itemStr
   return $ if isUTF8Encoded str then decodeString str else str
-#else
-  peekCString itemStr
-#endif
 
 #include <locale.h>
 foreign import ccall unsafe "locale.h setlocale"
diff --git a/src/Xmobar/Text/SwaybarClicks.hs b/src/Xmobar/Text/SwaybarClicks.hs
index c829e65..a06c8a1 100644
--- a/src/Xmobar/Text/SwaybarClicks.hs
+++ b/src/Xmobar/Text/SwaybarClicks.hs
@@ -23,9 +23,6 @@ import Control.Monad (when)
 
 
 import Data.Aeson
-
--- import qualified Data.ByteString.Lazy as BL
-
 import GHC.Generics
 
 import Xmobar.System.Utils (forkThread)
-- 
cgit v1.2.3