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

CLient: fix endorse for command.

Browse Source
This commit is contained in:
Benjamin Canou 2017-03-14 17:17:58 +01:00
parent 8962f324d4
commit 967075f49a
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/client/embedded/alpha/baker/client_mining_endorsement.ml
View File

@ -151,9 +151,14 @@ let check_endorsement cctxt level slot =
let forge_endorsement cctxt let forge_endorsement cctxt
block ?(force = false) block ?(force = false)
~src_sk ?slot ?max_priority src_pk = ~src_sk ?slot ?max_priority src_pk =
let block =
match block with
| `Prevalidation -> `Head 0
| `Test_prevalidation -> `Test_head 0
| _ -> block in
let src_pkh = Ed25519.Public_key.hash src_pk in let src_pkh = Ed25519.Public_key.hash src_pk in
Client_proto_rpcs.Context.next_level cctxt block >>=? fun level -> Client_proto_rpcs.Context.level cctxt block >>=? fun level ->
let level = Raw_level.succ @@ level.level in let level = Raw_level.succ level.level in
begin begin
match slot with match slot with
| Some slot -> return slot | Some slot -> return slot