Admin: improve documentation

src/bin_client/client_protocols_commands.ml

@@ -49,7 +49,7 @@ let commands () =
     command ~group ~desc: "Inject a new protocol into the node."
       no_options
       (prefixes [ "inject" ; "protocol" ]
-       @@ param ~name:"dir" ~desc:"directory containing a protocol" check_dir_parameter
+       @@ param ~name:"dir" ~desc:"directory containing the sources of a protocol" check_dir_parameter
        @@ stop)
       (fun () dirname (cctxt : #Client_context.full) ->
          Lwt.catch

src/lib_client_commands/client_admin_commands.ml

@@ -29,10 +29,10 @@ let commands () =
                 title = "Commands to perform privileged operations on the node" } in
   [
     command ~group
-      ~desc: "Make the node forget its decision of rejecting a block."
+      ~desc: "Make the node forget its decision of rejecting blocks."
       no_options
       (prefixes [ "unmark" ; "invalid" ]
-       @@ seq_of_param (Block_hash.param ~name:"block" ~desc:"block to remove from invalid list"))
+       @@ seq_of_param (Block_hash.param ~name:"blocks" ~desc:"blocks to remove from invalid list"))
       (fun () blocks (cctxt : #Client_context.full) ->
          iter_s
            (fun block ->

src/lib_client_commands/client_p2p_commands.ml

@@ -192,7 +192,7 @@ let commands () =
          return_unit
       ) ;
 
-    command ~group ~desc: "Clear all ACLs."
+    command ~group ~desc: "Clear all access control rules."
       no_options
       (prefixes [ "clear" ; "acls" ] @@ stop)
       (fun () (cctxt : #Client_context.full) ->