atagen/meat
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

readme
All checks were successful
Nix Build / nix build (push) Successful in 40s
Details

Browse source
This commit is contained in:
atagen 2025-09-15 10:29:54 +10:00
parent fafee12bec
commit 0777696090
3 changed files with 16 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lib/meat.ml
View file

@ -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..";