Fsdk/Git: added functions to work with tags

Author: webwarrior-ws

Fsdk/Git.fs

@@ -329,3 +329,51 @@ module Git =
                     else
                         let lastCommitSingleOutput = lines.[0]
                         sprintf "(%s/%s)" branch lastCommitSingleOutput
+
+    let GetTags() =
+        let tags = 
+            Process.Execute({ Command = "git"; Arguments = "tag" }, Echo.All).UnwrapDefault()
+
+        let tagsSplitted = tags.Split([|"\r\n"; "\n"|], StringSplitOptions.RemoveEmptyEntries)
+        tagsSplitted
+
+    let DoesTagExist (tagName: string) = 
+        GetTags() |> Seq.contains tagName
+
+    let CreateTag (tagName: string) =
+        Process.Execute({ Command = "git"; Arguments = (sprintf "tag %s" tagName) }, Echo.All).UnwrapDefault()
+        |> ignore<string>
+
+        let processResultRemote = Process.Execute({ Command = "git"; Arguments = "push --tags" }, Echo.All)
+        let _remoteResultRemote = 
+            match processResultRemote.Result with
+            | ProcessResultState.Error(_exitCode, output) ->
+                failwith (sprintf "pushing tags finished with an error: %s" output.StdErr)
+            | _ ->
+                ()
+        ()
+
+    let CreateTagWithForce (tagName: string) =
+        Process.Execute({ Command = "git"; Arguments = sprintf "tag %s --force" tagName }, Echo.All).UnwrapDefault()
+        |> ignore<string>
+
+        let processResultRemote = 
+            Process.Execute({ Command = "git"; Arguments = sprintf "push origin \"refs/tags/%s\" --force" tagName }, Echo.All)
+        match processResultRemote.Result with
+        | ProcessResultState.Error(_exitCode, output) ->
+            failwithf "pushing tag finished with an error: %s" output.StdErr
+        | _ ->
+            ()
+
+    let DeleteTag tagName =
+        Process.Execute({ Command = "git"; Arguments = (sprintf "tag --delete %s" tagName) }, Echo.All).UnwrapDefault()
+        |> ignore<string>
+
+        let processResultRemote = Process.Execute({ Command = "git"; Arguments = (sprintf "push --delete origin %s" tagName) }, Echo.All)
+        let _processResultRemote = 
+            match processResultRemote.Result with
+            | ProcessResultState.Error(_exitCode, output) ->
+                failwith (sprintf "deleting remote tag finished with an error: %s" output.StdErr)
+            | _ ->
+                ()
+        ()