From c11a661775de098b181a13cf2c20c8b85017a070 Mon Sep 17 00:00:00 2001 From: Khudyakov Alexey Date: Sun, 13 Jun 2010 13:33:41 +0200 Subject: encode string of bytes not list of chars Ignore-this: bd03772f1e1ab303646f36c28944b43 darcs-hash:20100613113341-7ba7e-2dfcd9ddf52b69a6b224497b1c8f9e5a845f8056.gz --- XMonad/Actions/Search.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'XMonad/Actions/Search.hs') 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 -- cgit v1.2.3