Client: substitute -force
with --force
This commit is contained in:
parent
a1a89753e5
commit
4248738866
@ -147,12 +147,12 @@ module Alias = functor (Entity : Entity) -> struct
|
||||
end else if n = name && v <> value then begin
|
||||
failwith
|
||||
"another %s is already aliased as %s, \
|
||||
use -force to update"
|
||||
use --force to update"
|
||||
Entity.name n
|
||||
end else if n <> name && v = value then begin
|
||||
failwith
|
||||
"this %s is already aliased as %s, \
|
||||
use -force to insert duplicate"
|
||||
use --force to insert duplicate"
|
||||
Entity.name n
|
||||
end else begin
|
||||
return ()
|
||||
@ -208,7 +208,7 @@ module Alias = functor (Entity : Entity) -> struct
|
||||
failwith
|
||||
"@[<v 2>The %s alias %s already exists.@,\
|
||||
The current value is %s.@,\
|
||||
Use -force to update@]"
|
||||
Use --force to update@]"
|
||||
Entity.name n
|
||||
value
|
||||
else
|
||||
|
@ -52,7 +52,7 @@ let gen_keys_containing
|
||||
if name_exists && not force
|
||||
then
|
||||
cctxt#warning
|
||||
"Key for name '%s' already exists. Use -force to update." name >>= return
|
||||
"Key for name '%s' already exists. Use --force to update." name >>= return
|
||||
else
|
||||
begin
|
||||
cctxt#warning "This process uses a brute force search and \
|
||||
@ -178,7 +178,7 @@ let commands () : Client_context.io_wallet Clic.command list =
|
||||
fail_unless (pk_uri = pk_uri_found || force)
|
||||
(failure
|
||||
"public and secret keys '%s' don't correspond, \
|
||||
please don't use -force" name)
|
||||
please don't use --force" name)
|
||||
end >>=? fun () ->
|
||||
Client_keys.public_key_hash pk_uri >>=? fun (pkh, public_key) ->
|
||||
cctxt#message
|
||||
@ -268,7 +268,7 @@ let commands () : Client_context.io_wallet Clic.command list =
|
||||
(fixed [ "forget" ; "all" ; "keys" ])
|
||||
(fun force (cctxt : Client_context.io_wallet) ->
|
||||
fail_unless force
|
||||
(failure "this can only used with option -force") >>=? fun () ->
|
||||
(failure "this can only used with option --force") >>=? fun () ->
|
||||
Public_key.set cctxt [] >>=? fun () ->
|
||||
Secret_key.set cctxt [] >>=? fun () ->
|
||||
Public_key_hash.set cctxt []) ;
|
||||
|
Loading…
Reference in New Issue
Block a user