From 4248738866a6357dddbebb9401e3e73f04eb75ca Mon Sep 17 00:00:00 2001
From: Vincent Bernardoff <vb@luminar.eu.org>
Date: Wed, 20 Jun 2018 16:03:31 +0200
Subject: [PATCH] Client: substitute `-force` with `--force`

---
 src/lib_client_base/client_aliases.ml           | 6 +++---
 src/lib_client_commands/client_keys_commands.ml | 6 +++---
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/lib_client_base/client_aliases.ml b/src/lib_client_base/client_aliases.ml
index 166340209..116ffc87c 100644
--- a/src/lib_client_base/client_aliases.ml
+++ b/src/lib_client_base/client_aliases.ml
@@ -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
diff --git a/src/lib_client_commands/client_keys_commands.ml b/src/lib_client_commands/client_keys_commands.ml
index 4438cea4c..554a72bb5 100644
--- a/src/lib_client_commands/client_keys_commands.ml
+++ b/src/lib_client_commands/client_keys_commands.ml
@@ -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 []) ;