ci: implemented incrementing patch version on CI

Author: xperiandri

build/build.fs

@@ -122,6 +122,7 @@ let failOnBadExitAndPrint (p : ProcessResult) =
 
         failwithf "failed with exitcode %d" p.ExitCode
 
+let isPublishToGitHub ctx = ctx.Context.FinalTarget = "PublishToGitHub"
 
 let isCI = lazy environVarAsBoolOrDefault "CI" false
 
@@ -266,7 +267,20 @@ let dotnetRestore _ =
     |> Seq.iter (retryIfInCI 10)
 
 let updateChangelog ctx =
-    latestEntry <- Changelog.updateChangelog changelogPath changelog gitHubRepoUrl ctx
+    latestEntry <-
+        if not <| isPublishToGitHub ctx then
+            Changelog.updateChangelog changelogPath changelog gitHubRepoUrl ctx
+        else
+            let latest = changelog.LatestEntry
+            {
+                latest with
+                    SemVer = {
+                        latest.SemVer with
+                            Patch = latest.SemVer.Patch + 1u
+                            PreRelease = PreRelease.TryParse "ci"
+                    }
+            }
+    printf ""
 
 let revertChangelog _ =
     if String.isNotNullOrEmpty Changelog.changelogBackupFilename then
@@ -286,7 +300,7 @@ let getPackageVersionProperty publishToGitHub =
 
 let dotnetBuild ctx =
 
-    let publishToGitHub = ctx.Context.FinalTarget = "PublishToGitHub"
+    let publishToGitHub = isPublishToGitHub ctx
 
     let args = [ getPackageVersionProperty publishToGitHub; "--no-restore" ]
 
@@ -447,10 +461,7 @@ let dotnetPack ctx =
     // Get release notes with properly-linked version number
     let releaseNotes = Changelog.mkReleaseNotes changelog latestEntry gitHubRepoUrl
 
-    let args = [
-        getPackageVersionProperty (ctx.Context.FinalTarget = "PublishToGitHub")
-        $"/p:PackageReleaseNotes=\"{releaseNotes}\""
-    ]
+    let args = [ getPackageVersionProperty (isPublishToGitHub ctx); $"/p:PackageReleaseNotes=\"{releaseNotes}\"" ]
 
     DotNet.pack
         (fun c -> {
@@ -659,7 +670,7 @@ let initTargets (ctx : Context.FakeExecutionContext) =
     ==>! "ShowCoverageReport"
 
     "UpdateChangelog"
-    =?> ("GenerateAssemblyInfo", not isPublishToGitHub)
+    ==> "GenerateAssemblyInfo"
     ==> "GitRelease"
     ==>! "Release"