hoauth 0.1.7 → 0.1.8
raw patch · 2 files changed
+7/−6 lines, 2 files
Files
hoauth.cabal view
@@ -1,5 +1,5 @@ name: hoauth-version: 0.1.7+version: 0.1.8 category: Network,Protocol,OAuth license: BSD3 license-file: LICENSE
src/main/haskell/Network/Protocol/OAuth/Signature.hs view
@@ -30,6 +30,7 @@ import qualified Network.Protocol.OAuth.Request as R import qualified Data.Digest.Pure.SHA as S import qualified Data.Char as C+import qualified Data.ByteString.Lazy as B import qualified Data.ByteString.Lazy.Char8 as B1 import qualified Codec.Binary.Base64.String as B2 import qualified Codec.Crypto.RSA as R1@@ -71,9 +72,9 @@ sign (PLAINTEXT k (Just s)) _ = k ++ "&" ++ s sign (PLAINTEXT k Nothing) _ = k ++ "&" - sign (HMAC_SHA1 k Nothing) r = let secret = B1.concat [R.encodes k, _froms "&"]+ sign (HMAC_SHA1 k Nothing) r = let secret = B.concat [R.encodes k, _froms "&"] in (B2.encode . B1.unpack . S.bytestringDigest . S.hmacSha1 secret . _basestr) r- sign (HMAC_SHA1 k (Just s)) r = let secret = B1.concat [R.encodes k, _froms "&", R.encodes s]+ sign (HMAC_SHA1 k (Just s)) r = let secret = B.concat [R.encodes k, _froms "&", R.encodes s] in (B2.encode . B1.unpack . S.bytestringDigest . S.hmacSha1 secret . _basestr) r sign (RSA_SHA1 k) r = (B2.encode . B1.unpack . R1.rsassa_pkcs1_v1_5_sign R1.ha_SHA1 k . _basestr) r@@ -85,11 +86,11 @@ showsPrec _ (RSA_SHA1 _) = showString "RSA-SHA1" -_basestr :: R.Request -> B1.ByteString+_basestr :: R.Request -> B.ByteString _basestr r = let endpoint' = (R.encodes . _endpoint) r params' = (R.encodes . _params) r method' = (R.encodes . show . R.method) r- in B1.concat [method', _froms "&", endpoint', _froms "&", params']+ in B.concat [method', _froms "&", endpoint', _froms "&", params'] _endpoint :: R.Request -> String _endpoint r | R.ssl r = ssl_endpoint'@@ -108,6 +109,6 @@ _params :: R.Request -> String _params = B1.unpack . R.show_urlencoded . R.params -_froms :: String -> B1.ByteString+_froms :: String -> B.ByteString _froms = B1.pack