balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Signer/HTTPS: bugfix

Browse Source
This commit is contained in:
Vincent Bernardoff 2018-06-07 00:11:48 +02:00
parent 650a45aa5c
commit 0aa9ebcb51
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/lib_signer_backends/https.ml
View File

@ -23,14 +23,14 @@ let parse uri =
(* extract `tz1..` from the last component of the path *) (* extract `tz1..` from the last component of the path *)
assert (Uri.scheme uri = Some scheme) ; assert (Uri.scheme uri = Some scheme) ;
let path = Uri.path uri in let path = Uri.path uri in
let base, pkh = begin match String.rindex_opt path '/' with
match String.rindex_opt path '/' with
| None -> | None ->
Uri.with_path uri "", path failwith "Invalid locator %a" Uri.pp_hum uri
| Some i -> | Some i ->
let pkh = String.sub path i (String.length path - i) in let pkh = String.sub path (i + 1) (String.length path - i - 1) in
let path = String.sub path 0 i in let path = String.sub path 0 i in
Uri.with_path uri path, pkh in return (Uri.with_path uri path, pkh)
end >>=? fun (base, pkh) ->
Lwt.return (Signature.Public_key_hash.of_b58check pkh) >>=? fun pkh -> Lwt.return (Signature.Public_key_hash.of_b58check pkh) >>=? fun pkh ->
return (base, pkh) return (base, pkh)