diff options
author | gwern0 <gwern0@gmail.com> | 2010-06-15 01:23:00 +0200 |
---|---|---|
committer | gwern0 <gwern0@gmail.com> | 2010-06-15 01:23:00 +0200 |
commit | be7429427b84c7c1221041e94d1a28d00e8030b3 (patch) | |
tree | b39eb00191af8d2b2da7f8332a9e2d46e75e534e /XMonad/Prompt.hs | |
parent | c79c215f08d1c0e5a99d6583754fd723bf7b9a6a (diff) | |
download | XMonadContrib-be7429427b84c7c1221041e94d1a28d00e8030b3.tar.gz XMonadContrib-be7429427b84c7c1221041e94d1a28d00e8030b3.tar.xz XMonadContrib-be7429427b84c7c1221041e94d1a28d00e8030b3.zip |
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
Diffstat (limited to '')
-rw-r--r-- | XMonad/Prompt.hs | 19 |
1 files changed, 8 insertions, 11 deletions
diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs index 53ec2e5..946d0dc 100644 --- a/XMonad/Prompt.hs +++ b/XMonad/Prompt.hs @@ -52,8 +52,6 @@ module XMonad.Prompt , splitInSubListsAt , breakAtSpace , uniqSort - , decodeInput - , encodeOutput , historyCompletion , historyCompletionP -- * History filters @@ -75,22 +73,21 @@ import XMonad.Util.Types import XMonad.Util.XSelection (getSelection) import XMonad.Util.XUtils (fi) +import Codec.Binary.UTF8.String (decodeString) +import Control.Applicative ((<$>)) import Control.Arrow ((&&&),first) import Control.Concurrent (threadDelay) -import Control.Monad.Reader +import Control.Exception.Extensible hiding (handle) import Control.Monad.State -import Control.Applicative ((<$>)) -import Data.Char import Data.Bits -import Data.Maybe -import Data.List +import Data.Char (isSpace) import Data.IORef +import Data.List +import Data.Maybe (fromMaybe) import Data.Set (fromList, toList) -import System.Directory +import System.Directory (getAppUserDataDirectory) import System.IO import System.Posix.Files -import Control.Exception.Extensible hiding (handle) - import qualified Data.Map as M -- $usage @@ -452,7 +449,7 @@ keyPressHandle m (ks,str) = do Nothing -> case str of "" -> eventLoop handle _ -> when (mask .&. controlMask == 0) $ do - insertString (decodeInput str) + insertString (decodeString str) updateWindows completed <- tryAutoComplete when completed $ setSuccess True >> setDone True |