twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

encode string of bytes not list of chars

Browse Source
This commit is contained in:
Khudyakov Alexey 2010-06-13 11:33:41 +00:00
parent c6178cacd2
commit e708caf2ac
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad/Actions/Search.hs
View File

@ -56,7 +56,7 @@ module XMonad.Actions.Search ( -- * Usage
-- $tip -- $tip
) where ) where
import Codec.Binary.UTF8.String (encodeString) import Codec.Binary.UTF8.String (encode)
import Data.Char (isAlphaNum, isAscii) import Data.Char (isAlphaNum, isAscii)
import Data.List (isPrefixOf) import Data.List (isPrefixOf)
import Text.Printf import Text.Printf
@ -208,7 +208,7 @@ escape = concatMap escapeURIChar
escapeURIChar :: Char -> String escapeURIChar :: Char -> String
escapeURIChar c | isAscii c && isAlphaNum c = [c] escapeURIChar c | isAscii c && isAlphaNum c = [c]
| otherwise = concatMap (printf "%%%02X") $ encodeString [c] | otherwise = concatMap (printf "%%%02X") $ encode [c]
type Browser = FilePath type Browser = FilePath
type Query = String type Query = String