haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fiexed bug: cannot escape request including multi-byte sequence correctly

Browse Source
This commit is contained in:
Hiromi Ishii 2011-06-21 03:10:16 +09:00
parent b06c4f5428
commit d9be899bf5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Web/Authenticate/OAuth.hs
View File

@ -207,7 +207,7 @@ renderAuthHeader = ("OAuth " `BS.append`). BS.intercalate "," . map (\(a,b) -> B
paramEncode :: BS.ByteString -> BS.ByteString paramEncode :: BS.ByteString -> BS.ByteString
paramEncode = BS.concatMap escape paramEncode = BS.concatMap escape
where where
escape c | isAlpha c || isDigit c || c `elem` "-._~" = BS.singleton c escape c | isAscii c && (isAlpha c || isDigit c || c `elem` "-._~") = BS.singleton c
| otherwise = let num = map toUpper $ showHex (ord c) "" | otherwise = let num = map toUpper $ showHex (ord c) ""
oct = '%' : replicate (2 - length num) '0' ++ num oct = '%' : replicate (2 - length num) '0' ++ num
in BS.pack oct in BS.pack oct