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

tighten acceptance of fresh cmd flags

Browse Source
This commit is contained in:
atagen 2024-11-24 11:34:33 +11:00
parent 3601213fd0
commit 933bf2efbd
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lib/meat.ml
View File

@ -62,8 +62,19 @@ let look () =
do_cmd "nix flake show $NH_FLAKE";
print_string footer
let all_flag () = Array.mem "-a" argv || Array.mem "--all" argv
let sub_flag () = Array.mem "-s" argv || Array.mem "--subflake" argv
(* let all_flag () = Array.mem "-a" argv || Array.mem "--all" argv
let sub_flag () = Array.mem "-s" argv || Array.mem "--subflake" argv *)
let all_flag () = if Array.length argv >= 3 then match Array.get argv 2 with
| "-a" | "--all" -> true
| _ -> false
else
false
let sub_flag () = if Array.length argv >= 3 then match Array.get argv 2 with
| "-s" | "--sub" -> true
| _ -> false
else
false
let derelativise base = List.map (fun a -> base ^ "/" ^ a)
let filter_dirs fullpath dirs =