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 begin
match Int32.of_string_opt lvl with match Int32.of_string_opt lvl with
| None -> | None ->
failwith "... FIXME ..." failwith "%s isn't a 32bit integer" lvl
| Some lvl -> | Some lvl ->
return lvl return lvl
end >>=? fun lvl -> end >>=? fun lvl ->
return (Some (lvl, block)) 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 -> end >>=? fun checkpoint ->
Lwt_lock_file.is_locked Lwt_lock_file.is_locked
(lock_file config.data_dir) >>=? function (lock_file config.data_dir) >>=? function
@ -349,7 +356,9 @@ module Term = struct
let checkpoint = let checkpoint =
let open Cmdliner in let open Cmdliner in
let doc = 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 in
Arg.(value & opt (some string) None & Arg.(value & opt (some string) None &
info ~docs:Node_shared_arg.Manpage.misc_section info ~docs:Node_shared_arg.Manpage.misc_section