diff --git a/README.md b/README.md new file mode 100644 index 0000000..a13e7e8 --- /dev/null +++ b/README.md @@ -0,0 +1 @@ +this is chopped dont look at it diff --git a/bin/main.ml b/bin/main.ml index 7c40538..0e465e8 100644 --- a/bin/main.ml +++ b/bin/main.ml @@ -9,6 +9,7 @@ let () = | "cook" -> cook () | "poke" -> poke () | "gut" -> gut () + | "trade" -> trade () (* | "look" -> look () *) | "fresh" -> fresh () | _ -> help () diff --git a/lib/meat.ml b/lib/meat.ml index ddf6b62..9a17705 100644 --- a/lib/meat.ml +++ b/lib/meat.ml @@ -8,6 +8,7 @@ let help = POKE - TASTE SUSPICIOUS MEATS GUT - CLEAN MEAT STORES FRESH - HUNT FRESH MEATS + TRADE - SEND MEATS FAR AWAY ..-A - ..ALL MEATS|} (* \tLOOK - LOOK FOR FRESHER MEATS *) @@ -49,6 +50,19 @@ let do_build () = do_cmd @@ "sudo " ^ tmpdir ^ "/build/bin/switch-to-configuration switch" >|= fun () -> Unix.unlink @@ tmpdir ^ "/build" +let do_remote () = + meat_print "tbd"; + Ok () + +let trade () = + print_string header; + meat_print "TRADING FOREIGN MEATS.."; + do_remote () |> function + | Error _ -> print_string "FAILED TO TRADE MEATS." + | _ -> + (); + print_string footer + let yum () = print_string header; meat_print "CONSUMING DELICIOUS MEATS..";