Added open food/freetext commands

2022-01-08 19:25:01 +10:00
parent f656c5ab40
commit 56d42f1339
7 changed files with 61 additions and 5 deletions
--- a/DredgeFramework.module.fs
+++ b/DredgeFramework.module.fs
@@ -38,8 +38,10 @@ let GetFileName (file: string) = Path.GetFileName file

 let length (variable: 'T[]) = variable.Length
 let first (array: 'a[]) = array[0]
+
 let last (array: 'a[]) = array[array.Length-1]

+let filterFirst (array:'a[]) = if array.Length > 0 then [|array[0]|] else [||]

 let removeFalseValues (variable: bool[]) = variable |> Array.filter id