Signer/Encrypted: typos

This commit is contained in:
Vincent Bernardoff 2018-07-01 10:33:14 +02:00
parent a0f5cb09db
commit 7f569b45fa

View File

@ -155,11 +155,11 @@ let rec interactive_decrypt_loop
| None ->
interactive_decrypt_loop cctxt ?name ~encrypted_sk algo
let rec noninteractice_decrypt_loop algo ~encrypted_sk = function
let rec noninteractive_decrypt_loop algo ~encrypted_sk = function
| [] -> return_none
| password :: passwords ->
Raw.decrypt algo ~password ~encrypted_sk >>=? function
| None -> noninteractice_decrypt_loop algo ~encrypted_sk passwords
| None -> noninteractive_decrypt_loop algo ~encrypted_sk passwords
| Some sk -> return_some sk
let decrypt_payload cctxt ?name encrypted_sk =
@ -172,7 +172,7 @@ let decrypt_payload cctxt ?name encrypted_sk =
return (Signature.P256, encrypted_sk)
| _ -> failwith "Not a Base58Check-encoded encrypted key"
end >>=? fun (algo, encrypted_sk) ->
noninteractice_decrypt_loop algo ~encrypted_sk !passwords >>=? function
noninteractive_decrypt_loop algo ~encrypted_sk !passwords >>=? function
| Some sk -> return sk
| None -> interactive_decrypt_loop cctxt ?name ~encrypted_sk algo