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

check for nh_flake variable

Browse Source
This commit is contained in:
atagen 2024-11-23 22:50:46 +11:00
parent ce7b751c6f
commit 6681fd984f
1 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
bin/main.ml
View File

@ -1,13 +1,18 @@
open Meat
let () =
if Array.length Sys.argv >= 2 then (
match String.lowercase_ascii (Array.get Sys.argv 1) with
| "yum" -> yum ()
| "cook" -> cook ()
| "poke" -> poke ()
| "gut" -> gut ()
| "look" -> look ()
| "fresh" -> fresh ()
| _ -> help ()
) else help ();
match Sys.getenv_opt "NH_FLAKE" with
| Some _ ->
if Array.length Sys.argv >= 2 then
match String.lowercase_ascii (Array.get Sys.argv 1) with
| "yum" -> yum ()
| "cook" -> cook ()
| "poke" -> poke ()
| "gut" -> gut ()
| "look" -> look ()
| "fresh" -> fresh ()
| _ -> help ()
else help ()
| None ->
meat_print "NO PATH TO RUNESTONE FOUND!";
help ()