Merge pull request #9 from FsharpGHActions/fix-values-to-take

Fix values to take

Author: 64J0

.github/workflows/release-fsharp.yml

@@ -4,10 +4,10 @@
 name: Release F#
 
 on:
-  workflow_dispatch:
-  # push:
-  #   tags:
-  #     - '*'
+  workflow_dispatch: # xxx
+  push:
+    tags:
+      - '*'
 
 permissions:
   contents: write

src/Program.fs

@@ -38,6 +38,11 @@ type RETURN_CODE =
     | SUCCESS = 0
     | FAIL = 1
 
+let truncate (valuesToTake: int) (args: string array) : string array =
+    match valuesToTake = -1 with
+    | true -> args
+    | false -> args |> Array.truncate valuesToTake
+
 let getWorkflowNewPath () =
     Path.Combine [| Directory.GetCurrentDirectory(); "workflow.new.yml" |]
 
@@ -65,11 +70,10 @@ let main (args: string array) : int =
         let! workflowKey = GitHubHelpers.getWorkflowKey ()
 
         let tags =
-            match valuesToTake = -1 with
-            | true -> args
-            | false -> args |> Array.truncate valuesToTake
+            args
             |> Array.map (fun s -> s.Split(' ') |> Array.filter (String.IsNullOrEmpty >> not))
             |> Array.concat // flat
+            |> truncate valuesToTake
 
         do! Validations.validateTagsAreNotEmpty tags