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

Shell: Fill "..." for checkpoint options

Browse Source
This commit is contained in:
Pierre Chambart 2018-06-13 19:07:03 +02:00 committed by Benjamin Canou
parent fc0af4a55f
commit 663c4e223e
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/bin_node/node_run_command.ml
View File

@ -292,13 +292,20 @@ let process sandbox verbosity checkpoint args =
begin
match Int32.of_string_opt lvl with
| None ->
failwith "... FIXME ..."
failwith "%s isn't a 32bit integer" lvl
| Some lvl ->
return lvl
end >>=? fun lvl ->
return (Some (lvl, block))
| [] -> assert false
| [_] ->
failwith "Checkoints are expected to follow the format \
\"<level>,<block_hash>\". \
The character ',' is not present in %s" s
| _ ->
failwith "... FIXME ..."
failwith "Checkoints are expected to follow the format \
\"<level>,<block_hash>\". \
The character ',' is present more than once in %s" s
end >>=? fun checkpoint ->
Lwt_lock_file.is_locked
(lock_file config.data_dir) >>=? function
@ -349,7 +356,9 @@ module Term = struct
let checkpoint =
let open Cmdliner in
let doc =
"..."
"When asked to take a block hash as a checkpoint, the daemon \
will only accept the chains that contains that block and those \
that might reach it."
in
Arg.(value & opt (some string) None &
info ~docs:Node_shared_arg.Manpage.misc_section