CI: upgrade fsxc to 0.6.0

.github/workflows/CI.yml

@@ -11,7 +11,7 @@ on:
 
 env:
   # we need to install specific version because of this bug: https://github.com/dotnet/sdk/issues/24037
-  FSXC_VERSION: 0.5.9.1
+  FSXC_VERSION: 0.6.1--date20240905-0811.git-6158a3a
 
 # FIXME: figure out why we need to clean after make if we
 # want 'make strict' target to really happen without

scripts/downgradeMono.fsx

@@ -5,7 +5,6 @@ open System.IO
 
 #if !LEGACY_FRAMEWORK
 failwith "This script is not prepared yet for dotnet6 or higher, it assumes old mono is installed. If you intended to use this for mono, then run it with fsharpi --define:LEGACY_FRAMEWORK instead of dotnet fsi."
-0
 #else
 #r "System.Configuration"
 open System.Configuration

scripts/downloadUbuntuDeps.fsx

@@ -5,7 +5,6 @@ open System.IO
 
 #if !LEGACY_FRAMEWORK
 failwith "This script is not prepared yet for dotnet6 or higher, it uses old mono packages such as 'fsharp'. If you intended to use this for mono, then run it with fsharpi --define:LEGACY_FRAMEWORK instead of dotnet fsi."
-0
 #else
 #r "System.Configuration"
 open System.Configuration

scripts/sanitycheck.fsx

@@ -41,11 +41,11 @@ module MapHelper =
         map |> Map.toSeq |> Seq.map fst
 
     let MergeIntoMap<'K,'V when 'K: comparison> (from: seq<'K*'V>): Map<'K,seq<'V>> =
-        let keys = from.Select (fun (k, v) -> k)
+        let keys = from.Select (fun (k, _v) -> k)
         let keyValuePairs =
             seq {
                 for key in keys do
-                    let valsForKey = (from.Where (fun (k, v) -> key = k)).Select (fun (k, v) -> v) |> seq
+                    let valsForKey = (from.Where (fun (k, _v) -> key = k)).Select (fun (_k, v) -> v) |> seq
                     yield key,valsForKey
             }
         keyValuePairs |> Map.ofSeq
@@ -288,7 +288,8 @@ let SanityCheckNugetPackages () =
                         yield packageDirNameThatShouldExist, prjs
             } |> Map.ofSeq
 
-        let findExcessPackageDirs (solDir: DirectoryInfo) (idealPackageDirs: Map<string,seq<DependencyHolder>>): seq<string> =
+        // unused for now, we might use it later
+        let _findExcessPackageDirs (solDir: DirectoryInfo) (idealPackageDirs: Map<string,seq<DependencyHolder>>): seq<string> =
             solDir.Refresh ()
             if not (FsxHelper.NugetSolutionPackagesDir.Exists) then
                 failwithf "'%s' subdir under solution dir %s doesn't exist, run `make` first"