diff --git a/.github/workflows/CI.yml b/.github/workflows/CI.yml index 80dbad177..be204d573 100644 --- a/.github/workflows/CI.yml +++ b/.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 diff --git a/scripts/downgradeMono.fsx b/scripts/downgradeMono.fsx index e8a20130d..01f123bef 100755 --- a/scripts/downgradeMono.fsx +++ b/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 diff --git a/scripts/downloadUbuntuDeps.fsx b/scripts/downloadUbuntuDeps.fsx index c3288e1e8..fa9053347 100755 --- a/scripts/downloadUbuntuDeps.fsx +++ b/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 diff --git a/scripts/sanitycheck.fsx b/scripts/sanitycheck.fsx index 3506ba182..e82ca7758 100755 --- a/scripts/sanitycheck.fsx +++ b/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>): seq = + // unused for now, we might use it later + let _findExcessPackageDirs (solDir: DirectoryInfo) (idealPackageDirs: Map>): seq = solDir.Refresh () if not (FsxHelper.NugetSolutionPackagesDir.Exists) then failwithf "'%s' subdir under solution dir %s doesn't exist, run `make` first"