This commit is contained in:
Grégoire Henry 2017-03-14 11:56:24 +01:00
parent 176c469a5c
commit cf0d6d2580
2 changed files with 4 additions and 4 deletions

View File

@ -70,10 +70,10 @@ let main () =
Format.eprintf "%s%!" help ;
Lwt.return 1
| Cli_entries.Command_not_found ->
Format.eprintf "Unkonwn command, try `-help`.\n%!" ;
Format.eprintf "Unknown command, try `-help`.\n%!" ;
Lwt.return 1
| Client_commands.Version_not_found ->
Format.eprintf "Unkonwn protocol version, try `list versions`.\n%!" ;
Format.eprintf "Unknown protocol version, try `list versions`.\n%!" ;
Lwt.return 1
| Cli_entries.Bad_argument (idx, _n, v) ->
Format.eprintf "There's a problem with argument %d, %s.\n%!" idx v ;

View File

@ -69,9 +69,9 @@ let eval_command argv =
| Arg.Bad help ->
Format.asprintf "%s%!" help
| Cli_entries.Command_not_found ->
Format.asprintf "Unkonwn command, try `-help`.\n%!"
Format.asprintf "Unknown command, try `-help`.\n%!"
| Client_commands.Version_not_found ->
Format.asprintf "Unkonwn protocol version, try `list versions`.\n%!"
Format.asprintf "Unknown protocol version, try `list versions`.\n%!"
| Cli_entries.Bad_argument (idx, _n, v) ->
Format.asprintf "There's a problem with argument %d, %s.\n%!" idx v
| Cli_entries.Command_failed message ->