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

Admin: add an "unmark all" invalid blocks command

Browse Source
This commit is contained in:
Vincent Botbol 2018-09-19 17:48:29 +02:00
parent 8e7da9281e
commit 705a779d76
No known key found for this signature in database
GPG Key ID: A2CE1BDBED95DA38
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/lib_client_commands/client_admin_commands.ml
View File

@ -32,7 +32,7 @@ let commands () =
~desc: "Make the node forget its decision of rejecting blocks."
no_options
(prefixes [ "unmark" ; "invalid" ]
@@ seq_of_param (Block_hash.param ~name:"blocks" ~desc:"blocks to remove from invalid list"))
@@ seq_of_param (Block_hash.param ~name:"block" ~desc:"blocks to remove from invalid list"))
(fun () blocks (cctxt : #Client_context.full) ->
iter_s
(fun block ->
@ -42,4 +42,19 @@ let commands () =
Block_hash.pp block >>= fun () ->
return_unit)
blocks) ;
command ~group
~desc: "Make the node forget every decision of rejecting blocks."
no_options
(prefixes [ "unmark" ; "all" ; "invalid" ; "blocks" ]
@@ stop)
(fun () (cctxt : #Client_context.full) ->
Shell_services.Invalid_blocks.list cctxt () >>=? fun invalid_blocks ->
iter_s (fun { Chain_services.hash } ->
Shell_services.Invalid_blocks.delete cctxt hash >>=? fun () ->
cctxt#message
"Block %a no longer marked invalid."
Block_hash.pp_short hash >>= fun () ->
return_unit)
invalid_blocks) ;
]