diff options
| author | Khudyakov Alexey <alexey.skladnoy@gmail.com> | 2010-06-13 13:33:41 +0200 |
|---|---|---|
| committer | Khudyakov Alexey <alexey.skladnoy@gmail.com> | 2010-06-13 13:33:41 +0200 |
| commit | c11a661775de098b181a13cf2c20c8b85017a070 (patch) | |
| tree | 6b688f8e00072c97c96fb7ce8605e34a1546187b /XMonad/Actions | |
| parent | a972de47355dd8e1e695f3f030429a67684ae3dd (diff) | |
| download | XMonadContrib-c11a661775de098b181a13cf2c20c8b85017a070.tar.gz XMonadContrib-c11a661775de098b181a13cf2c20c8b85017a070.tar.xz XMonadContrib-c11a661775de098b181a13cf2c20c8b85017a070.zip | |
encode string of bytes not list of chars
Ignore-this: bd03772f1e1ab303646f36c28944b43
darcs-hash:20100613113341-7ba7e-2dfcd9ddf52b69a6b224497b1c8f9e5a845f8056.gz
Diffstat (limited to 'XMonad/Actions')
| -rw-r--r-- | XMonad/Actions/Search.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Actions/Search.hs b/XMonad/Actions/Search.hs index d1bc596..98d2133 100644 --- a/XMonad/Actions/Search.hs +++ b/XMonad/Actions/Search.hs @@ -56,7 +56,7 @@ module XMonad.Actions.Search ( -- * Usage -- $tip ) where -import Codec.Binary.UTF8.String (encodeString) +import Codec.Binary.UTF8.String (encode) import Data.Char (isAlphaNum, isAscii) import Data.List (isPrefixOf) import Text.Printf @@ -208,7 +208,7 @@ escape = concatMap escapeURIChar escapeURIChar :: Char -> String escapeURIChar c | isAscii c && isAlphaNum c = [c] - | otherwise = concatMap (printf "%%%02X") $ encodeString [c] + | otherwise = concatMap (printf "%%%02X") $ encode [c] type Browser = FilePath type Query = String |