Mercurial > openid

comparison src/ur/openid.ur @ 44:f8c9e1e4d337

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix type error
author Adam Chlipala <adam@chlipala.net>
date Sun, 03 Jul 2011 14:09:03 -0400
parents 00c8f43be8b7
children
comparison
equal deleted inserted replaced
43:00c8f43be8b7 44:f8c9e1e4d337
321 let 321 let
322 val sign' = case atype of 322 val sign' = case atype of
323 HMAC_SHA256 => OpenidFfi.hmac_sha256 key nvps 323 HMAC_SHA256 => OpenidFfi.hmac_sha256 key nvps
324 | HMAC_SHA1 => OpenidFfi.hmac_sha1 key nvps 324 | HMAC_SHA1 => OpenidFfi.hmac_sha1 key nvps
325 in 325 in
326 if secCmp sign' sign then 326 if OpenidFfi.secCmp sign' sign then
327 return None 327 return None
328 else 328 else
329 return (Some "Signatures don't match") 329 return (Some "Signatures don't match")
330 end 330 end
331 | Some (left, _) => return (Some ("openid.signed is missing required fields: " ^ show left)) 331 | Some (left, _) => return (Some ("openid.signed is missing required fields: " ^ show left))