From be7429427b84c7c1221041e94d1a28d00e8030b3 Mon Sep 17 00:00:00 2001
From: gwern0 <gwern0@gmail.com>
Date: Tue, 15 Jun 2010 01:23:00 +0200
Subject: remove decodeInput/encodeOutput

Ignore-this: 2ed6a014130dba95c6b0a6fcac055110
see http://code.google.com/p/xmonad/issues/detail?id48
they are just synonyms for 2 utf8-string functions, and don't really help

darcs-hash:20100614232300-f7719-66f0606d9c7323186cb6aa56dff11c506bb79c4e.gz
---
 XMonad/Util/Font.hs | 12 ------------
 1 file changed, 12 deletions(-)

(limited to 'XMonad/Util/Font.hs')

diff --git a/XMonad/Util/Font.hs b/XMonad/Util/Font.hs
index 725c443..b08f021 100644
--- a/XMonad/Util/Font.hs
+++ b/XMonad/Util/Font.hs
@@ -29,8 +29,6 @@ module XMonad.Util.Font
     , textExtentsXMF
     , printStringXMF
     , stringToPixel
-    , decodeInput
-    , encodeOutput
     ) where
 
 import XMonad
@@ -44,9 +42,6 @@ import Graphics.X11.Xft
 import Graphics.X11.Xrender
 #endif
 
-import Codec.Binary.UTF8.String (encodeString, decodeString)
-
-
 -- Hide the Core Font/Xft switching here
 data XMonadFont = Core FontStruct
                 | Utf8 FontSet
@@ -64,7 +59,6 @@ stringToPixel d s = fromMaybe fallBack <$> io getIt
     where getIt    = initColor d s
           fallBack = blackPixel d (defaultScreen d)
 
-
 -- | Given a fontname returns the font structure. If the font name is
 --  not valid the default font will be loaded and returned.
 initCoreFont :: String -> X FontStruct
@@ -192,12 +186,6 @@ printStringXMF dpy drw fs@(Xft font) gc fc bc x y s = do
                    \color -> xftDrawString draw color font x y s
 #endif
 
-decodeInput :: String -> String
-decodeInput = decodeString
-
-encodeOutput :: String -> String
-encodeOutput = encodeString
-
 -- | Short-hand for 'fromIntegral'
 fi :: (Integral a, Num b) => a -> b
 fi = fromIntegral
-- 
cgit v1.2.3