balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Typo

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/client_main.ml
View File

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

4
src/webclient_main.ml
View File

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