ocaml
This commit is contained in:
commit
e598b04cae
31 changed files with 946 additions and 0 deletions
8
lib/commands/trade.ml
Normal file
8
lib/commands/trade.ml
Normal file
|
|
@ -0,0 +1,8 @@
|
|||
let run () =
|
||||
print_string Common.header;
|
||||
Common.meat_print "TRADING FOREIGN MEATS..";
|
||||
Common.do_remote () |> function
|
||||
| Error _ -> print_string "FAILED TO TRADE MEATS."
|
||||
| _ ->
|
||||
();
|
||||
print_string Common.footer
|
||||
Loading…
Add table
Add a link
Reference in a new issue