Skip to content

Commit c31be56

Browse files
DedSec256DedSec256
authored
GitHub Actions: bump to .NET 8.0.2 (#853)
1 parent 31632f9 commit c31be56

File tree

66 files changed

+164
-170
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

66 files changed

+164
-170
lines changed

‎ReSharper.FSharp/global.json

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
{
22
"sdk": {
3-
"version": "8.0.100",
3+
"version": "8.0.200",
44
"rollForward": "latestMinor",
55
"allowPrerelease": false
66
}

‎ReSharper.FSharp/src/FSharp/FSharp.Common/src/Checker/FcsProjectProvider.fs

+2-2
Original file line numberDiff line numberDiff line change
@@ -519,7 +519,7 @@ type FcsProjectProvider(lifetime: Lifetime, solution: ISolution, changeManager:
519519
if isScriptLike sourceFile then false else
520520

521521
tryGetFcsProject sourceFile.PsiModule
522-
|> Option.map (fun project -> project.ImplementationFilesWithSignatures.Contains(sourceFile.GetLocation()))
522+
|> Option.map _.ImplementationFilesWithSignatures.Contains(sourceFile.GetLocation())
523523
|> Option.defaultValue false
524524

525525
member x.GetParsingOptions(sourceFile) =
@@ -546,7 +546,7 @@ type FcsProjectProvider(lifetime: Lifetime, solution: ISolution, changeManager:
546546
if isScriptLike sourceFile then 0 else
547547

548548
tryGetFcsProject sourceFile.PsiModule
549-
|> Option.map (fun project -> project.GetIndex(sourceFile))
549+
|> Option.map _.GetIndex(sourceFile)
550550
|> Option.defaultValue -1
551551

552552
member x.ProjectRemoved = fcsProjectInvalidated :> _

‎ReSharper.FSharp/src/FSharp/FSharp.Common/src/Checker/ScriptFcsProjectProvider.fs

+1-1
Original file line numberDiff line numberDiff line change
@@ -172,7 +172,7 @@ type ScriptFcsProjectProvider(lifetime: Lifetime, logger: ILogger, checkerServic
172172
getDefaultOptions path |> createFcsProject path
173173

174174
let getOptions path source : FSharpProjectOptions option =
175-
getFcsProject path source true |> Option.map (fun fcsProject -> fcsProject.ProjectOptions)
175+
getFcsProject path source true |> Option.map _.ProjectOptions
176176

177177
interface IScriptFcsProjectProvider with
178178
member x.GetScriptOptions(path: VirtualFileSystemPath, source) =

‎ReSharper.FSharp/src/FSharp/FSharp.Common/src/ProjectModel/FSharpLanguageVersion.fs

+1-2
Original file line numberDiff line numberDiff line change
@@ -89,8 +89,7 @@ module FSharpLanguageLevel =
8989
let levelProvider =
9090
psiModule.GetPsiServices()
9191
.GetComponent<SolutionFeaturePartsContainer>()
92-
.GetFeatureParts<ILanguageLevelProvider<FSharpLanguageLevel, FSharpLanguageVersion>>(fun p ->
93-
p.IsApplicable(psiModule))
92+
.GetFeatureParts<ILanguageLevelProvider<FSharpLanguageLevel, FSharpLanguageVersion>>(_.IsApplicable(psiModule))
9493
.SingleItem()
9594

9695
levelProvider.GetLanguageLevel(psiModule)

‎ReSharper.FSharp/src/FSharp/FSharp.Common/src/ProjectModel/FSharpProjectModelUtil.fs

+1-1
Original file line numberDiff line numberDiff line change
@@ -31,7 +31,7 @@ let getReferencedModules (psiModule: IPsiModule) =
3131
match reference.Module with
3232
| :? IProjectPsiModule as projectPsiModule -> projectPsiModule != project
3333
| _ -> true)
34-
|> Seq.map (fun reference -> reference.Module)
34+
|> Seq.map _.Module
3535

3636
module ModulePathProvider =
3737
let outputPathKey = Key<VirtualFileSystemPath>("AssemblyReaderTest.outputPath")

‎ReSharper.FSharp/src/FSharp/FSharp.Common/src/ProjectModel/FSharpScriptPsiModuleFactory.fs

+1-1
Original file line numberDiff line numberDiff line change
@@ -64,7 +64,7 @@ type FSharpScriptPsiModulesProvider(lifetime: Lifetime, solution: ISolution, cha
6464
let platformInfos = platformManager.GetAllCompilePlatforms().AsList()
6565
if platformInfos.IsEmpty() then TargetFrameworkId.Default else
6666

67-
let platformInfo = platformInfos |> Seq.maxBy (fun info -> info.TargetFrameworkId.Version)
67+
let platformInfo = platformInfos |> Seq.maxBy _.TargetFrameworkId.Version
6868
platformInfo.TargetFrameworkId
6969
)
7070

‎ReSharper.FSharp/src/FSharp/FSharp.Common/src/ProjectModel/Host/ProjectItems/FSharpItemsContainer.fs

+8-8
Original file line numberDiff line numberDiff line change
@@ -124,7 +124,7 @@ type FSharpItemsContainer(lifetime: Lifetime, logger: ILogger, containerLoader:
124124
let tryGetProjectItem (viewItem: FSharpViewItem) =
125125
tryGetProjectMark viewItem.ProjectItem
126126
|> Option.bind tryGetProjectMapping
127-
|> Option.bind (fun mapping -> mapping.TryGetProjectItem(viewItem))
127+
|> Option.bind _.TryGetProjectItem(viewItem)
128128

129129
let getItems (toolsetVersion: NuGetVersion) (msBuildProject: MsBuildProject) projectDescriptor
130130
(itemTypeFilter: MsBuildProjectItem -> bool) (itemsByName: HashSet<_>) allowNonDefaultItemType =
@@ -375,12 +375,12 @@ type FSharpItemsContainer(lifetime: Lifetime, logger: ILogger, containerLoader:
375375

376376
member x.TryGetSortKey(viewItem: FSharpViewItem) =
377377
use lock = locker.UsingReadLock()
378-
tryGetProjectItem viewItem |> Option.map (fun item -> item.SortKey)
378+
tryGetProjectItem viewItem |> Option.map _.SortKey
379379

380380
member x.GetProjectItemsPaths(projectMark, targetFrameworkId) =
381381
use lock = locker.UsingReadLock()
382382
tryGetProjectMapping projectMark
383-
|> Option.map (fun mapping -> mapping.GetProjectItemsPaths(targetFrameworkId))
383+
|> Option.map _.GetProjectItemsPaths(targetFrameworkId)
384384
|> Option.defaultValue [| |]
385385

386386
member this.RemoveProject(project) =
@@ -443,7 +443,7 @@ type ProjectMapping(projectDirectory, projectUniqueName, targetFrameworkIds: ISe
443443

444444
let getChildrenSorted (parent: FSharpProjectModelElement) =
445445
children[parent]
446-
|> Seq.sortBy (fun x -> x.SortKey)
446+
|> Seq.sortBy _.SortKey
447447

448448
let getNewSortKey parent =
449449
children[parent].Count + 1
@@ -468,7 +468,7 @@ type ProjectMapping(projectDirectory, projectUniqueName, targetFrameworkIds: ISe
468468

469469
let getOrCreateFolder folderRefresher parent path =
470470
folders[path]
471-
|> Seq.sortBy (fun item -> item.SortKey)
471+
|> Seq.sortBy _.SortKey
472472
|> Seq.tryLast
473473
|> Option.defaultWith (fun _ ->
474474
folderRefresher parent
@@ -1005,7 +1005,7 @@ type ProjectMapping(projectDirectory, projectUniqueName, targetFrameworkIds: ISe
10051005

10061006
let modifiedItemLocation =
10071007
modifiedViewItem
1008-
|> Option.map (fun item -> item.ProjectItem.Location)
1008+
|> Option.map _.ProjectItem.Location
10091009
|> Option.defaultValue null
10101010

10111011
match getRelativeChildPathImpl relativeItem modifiedItemCompilerOrder relativeToType with
@@ -1234,7 +1234,7 @@ type FSharpItemsContainerRefresher(lifetime: Lifetime, solution: ISolution, view
12341234

12351235
// todo: single identity
12361236
member x.RefreshFolder(projectMark, folder, _) =
1237-
refresh projectMark (fun project -> project.FindProjectItemsByLocation(folder).OfType<IProjectFolder>())
1237+
refresh projectMark _.FindProjectItemsByLocation(folder).OfType<IProjectFolder>()
12381238

12391239
member x.UpdateFile(projectMark, path) =
12401240
update projectMark path (function
@@ -1257,7 +1257,7 @@ type FSharpItemsContainerRefresher(lifetime: Lifetime, solution: ISolution, view
12571257
tryGetProject projectMark
12581258
|> Option.bind (fun project ->
12591259
project.FindProjectItemsByLocation(filePath).OfType<IProjectFile>() |> Seq.tryHead)
1260-
|> Option.filter (fun projectFile -> projectFile.IsValid())
1260+
|> Option.filter _.IsValid()
12611261
|> Option.iter (fun projectFile ->
12621262

12631263
let navigationManager = NavigationManager.GetInstance(solution)

‎ReSharper.FSharp/src/FSharp/FSharp.Common/src/Settings/FSharpOptions.fs

+13-13
Original file line numberDiff line numberDiff line change
@@ -206,32 +206,32 @@ type FSharpOptionsPage(lifetime: Lifetime, optionsPageContext, settings,
206206

207207
do
208208
this.AddHeader("Imports")
209-
this.AddBoolOption((fun key -> key.TopLevelOpenCompletion), RichText(topLevelOpenCompletion), null) |> ignore
209+
this.AddBoolOption(_.TopLevelOpenCompletion, RichText(topLevelOpenCompletion), null) |> ignore
210210

211211
this.AddHeader("Script editing")
212-
this.AddComboEnum((fun key -> key.LanguageVersion), FSharpScriptOptions.languageVersion, FSharpLanguageVersion.toString) |> ignore
212+
this.AddComboEnum(_.LanguageVersion, FSharpScriptOptions.languageVersion, FSharpLanguageVersion.toString) |> ignore
213213
if PlatformUtil.IsRunningUnderWindows then
214-
this.AddBoolOption((fun key -> key.TargetNetFramework), RichText(FSharpScriptOptions.targetNetFramework)) |> ignore
215-
this.AddBoolOptionWithComment((fun key -> key.FsiInteractiveEditor), FSharpExperimentalFeatures.fsiInteractiveEditor, "Experimental") |> ignore
214+
this.AddBoolOption(_.TargetNetFramework, RichText(FSharpScriptOptions.targetNetFramework)) |> ignore
215+
this.AddBoolOptionWithComment(_.FsiInteractiveEditor, FSharpExperimentalFeatures.fsiInteractiveEditor, "Experimental") |> ignore
216216

217217
this.AddHeader("F# Compiler Service")
218-
this.AddBoolOptionWithComment((fun key -> key.SkipImplementationAnalysis), skipImplementationAnalysis, "Requires restart") |> ignore
219-
this.AddBoolOptionWithComment((fun key -> key.ParallelProjectReferencesAnalysis), parallelProjectReferencesAnalysis, "Requires restart") |> ignore
220-
this.AddBoolOptionWithComment((fun key -> key.OutOfProcessTypeProviders), FSharpExperimentalFeatures.outOfProcessTypeProviders, "Requires restart") |> ignore
218+
this.AddBoolOptionWithComment(_.SkipImplementationAnalysis, skipImplementationAnalysis, "Requires restart") |> ignore
219+
this.AddBoolOptionWithComment(_.ParallelProjectReferencesAnalysis, parallelProjectReferencesAnalysis, "Requires restart") |> ignore
220+
this.AddBoolOptionWithComment(_.OutOfProcessTypeProviders, FSharpExperimentalFeatures.outOfProcessTypeProviders, "Requires restart") |> ignore
221221

222222
do
223223
use indent = this.Indent()
224-
[ this.AddBoolOptionWithComment((fun key -> key.GenerativeTypeProvidersInMemoryAnalysis), FSharpExperimentalFeatures.generativeTypeProvidersInMemoryAnalysis, "Requires restart") ]
224+
[ this.AddBoolOptionWithComment(_.GenerativeTypeProvidersInMemoryAnalysis, FSharpExperimentalFeatures.generativeTypeProvidersInMemoryAnalysis, "Requires restart") ]
225225
|> Seq.iter (fun checkbox ->
226-
this.AddBinding(checkbox, BindingStyle.IsEnabledProperty, (fun key -> key.OutOfProcessTypeProviders), fun t -> t :> obj))
226+
this.AddBinding(checkbox, BindingStyle.IsEnabledProperty, _.OutOfProcessTypeProviders, fun t -> t :> obj))
227227

228-
this.AddBoolOptionWithComment((fun key -> key.NonFSharpProjectInMemoryReferences), nonFSharpProjectInMemoryReferences, "Requires restart") |> ignore
228+
this.AddBoolOptionWithComment(_.NonFSharpProjectInMemoryReferences, nonFSharpProjectInMemoryReferences, "Requires restart") |> ignore
229229

230230
if configurations.IsInternalMode() then
231231
this.AddHeader("Experimental features")
232-
this.AddBoolOption((fun key -> key.PostfixTemplates), RichText(FSharpExperimentalFeatures.postfixTemplates), null) |> ignore
233-
this.AddBoolOption((fun key -> key.RedundantParensAnalysis), RichText(FSharpExperimentalFeatures.redundantParenAnalysis), null) |> ignore
234-
this.AddBoolOption((fun key -> key.Formatter), RichText(FSharpExperimentalFeatures.formatter), null) |> ignore
232+
this.AddBoolOption(_.PostfixTemplates, RichText(FSharpExperimentalFeatures.postfixTemplates), null) |> ignore
233+
this.AddBoolOption(_.RedundantParensAnalysis, RichText(FSharpExperimentalFeatures.redundantParenAnalysis), null) |> ignore
234+
this.AddBoolOption(_.Formatter, RichText(FSharpExperimentalFeatures.formatter), null) |> ignore
235235

236236

237237
[<ShellComponent>]

‎ReSharper.FSharp/src/FSharp/FSharp.Common/src/Shim/AssemblyReader/AssemblyReaderShim.fs

+1-1
Original file line numberDiff line numberDiff line change
@@ -228,7 +228,7 @@ type AssemblyReaderShim(lifetime: Lifetime, changeManager: ChangeManager, psiMod
228228
for KeyValue(dependency, referencedModule) in referencedModules do
229229
builder.AppendLine($" {dependency.Project.Name}, IsValid: {dependency.Project.IsValid()}") |> ignore
230230
let referencingModules = referencedModule.ReferencingProjects
231-
for referencing in referencingModules |> Seq.sortBy (fun projectKey -> projectKey.Project.Name) do
231+
for referencing in referencingModules |> Seq.sortBy _.Project.Name do
232232
builder.AppendLine($" {referencing.Project.Name}") |> ignore
233233

234234
if dirtyModules.Count > 0 then

‎ReSharper.FSharp/src/FSharp/FSharp.Common/src/Shim/AssemblyReader/ProjectFcsModuleReader.fs

+5-5
Original file line numberDiff line numberDiff line change
@@ -438,7 +438,7 @@ type ProjectFcsModuleReader(psiModule: IPsiModule, cache: FcsModuleReaderCommonC
438438

439439
let typeNames =
440440
clrTypeName.TypeNames
441-
|> Seq.map (fun n -> n.TypeName)
441+
|> Seq.map _.TypeName
442442
|> String.concat "."
443443

444444
let name =
@@ -1041,16 +1041,16 @@ type ProjectFcsModuleReader(psiModule: IPsiModule, cache: FcsModuleReaderCommonC
10411041

10421042

10431043
let getOrCreateMethods (table: FcsTypeDefMembers) (typeName: IClrTypeName) =
1044-
getOrCreateMembers table typeName EmptyArray.Instance (fun members -> members.Methods)
1044+
getOrCreateMembers table typeName EmptyArray.Instance _.Methods
10451045

10461046
let getOrCreateFields (table: FcsTypeDefMembers) (typeName: IClrTypeName) =
1047-
getOrCreateMembers table typeName [] (fun members -> members.Fields)
1047+
getOrCreateMembers table typeName [] _.Fields
10481048

10491049
let getOrCreateProperties (table: FcsTypeDefMembers) (typeName: IClrTypeName) =
1050-
getOrCreateMembers table typeName [] (fun members -> members.Properties)
1050+
getOrCreateMembers table typeName [] _.Properties
10511051

10521052
let getOrCreateEvents (table: FcsTypeDefMembers) (typeName: IClrTypeName) =
1053-
getOrCreateMembers table typeName [] (fun members -> members.Events)
1053+
getOrCreateMembers table typeName [] _.Events
10541054

10551055
let getOrCreateNestedTypes (table: FcsTypeDefMembers) reader (typeName: IClrTypeName) =
10561056
getOrCreateNestedTypes table typeName [||] reader

‎ReSharper.FSharp/src/FSharp/FSharp.Psi.Daemon/src/Analyzers/ElementProblemAnalyzerUtil.fs

+1-1
Original file line numberDiff line numberDiff line change
@@ -32,7 +32,7 @@ type ElementProblemAnalyzerData with
3232
match psiModule with
3333
| :? FSharpScriptPsiModule ->
3434
let psiModules = psiModule.GetPsiServices().Modules
35-
psiModules.GetModuleReferences(psiModule) |> Seq.map (fun reference -> reference.Module)
35+
psiModules.GetModuleReferences(psiModule) |> Seq.map _.Module
3636
| _ ->
3737
let project = psiModule.ContainingProjectModule.As<IProject>()
3838
if isNull project || not project.IsFSharp then Seq.empty else

‎ReSharper.FSharp/src/FSharp/FSharp.Psi.Daemon/src/Analyzers/LambdaAnalyzer.fs

+1-1
Original file line numberDiff line numberDiff line change
@@ -210,7 +210,7 @@ type LambdaAnalyzer() =
210210
let hasOptionalArg =
211211
x.CurriedParameterGroups
212212
|> Seq.concat
213-
|> Seq.exists (fun x -> x.IsOptionalArg)
213+
|> Seq.exists _.IsOptionalArg
214214
if hasOptionalArg then null else ctor arg
215215

216216
| _ -> ctor arg

‎ReSharper.FSharp/src/FSharp/FSharp.Psi.Daemon/src/Analyzers/XmlDocAnalyzer.fs

+1-1
Original file line numberDiff line numberDiff line change
@@ -51,7 +51,7 @@ type XmlDocBlockAnalyzer(xmlAnalysisManager: XmlAnalysisManager) =
5151

5252
let analyses =
5353
xmlAnalysisManager.Providers
54-
|> Seq.collect (fun provider -> provider.GetAnalyses(xmlFile, daemonProcess, data.SettingsStore))
54+
|> Seq.collect _.GetAnalyses(xmlFile, daemonProcess, data.SettingsStore)
5555

5656
let xmlConsumer = DefaultHighlightingConsumer(data.SourceFile)
5757
let xmlAnalysisProcess = XmlAnalysisStageProcess(xmlFile, analyses, daemonProcess, xmlConsumer)

‎ReSharper.FSharp/src/FSharp/FSharp.Psi.Daemon/src/Highlightings/FSharpTypeHintBulbActionsProvider.fs

+3-3
Original file line numberDiff line numberDiff line change
@@ -31,13 +31,13 @@ type FSharpTypeHintBulbActionsProvider(setting: Expression<Func<FSharpTypeHintOp
3131
member _.GetOptionsPageId() = nameof(FSharpTypeHintsOptionsPage)
3232

3333
type FSharpTopLevelMembersTypeHintBulbActionsProvider private () =
34-
inherit FSharpTypeHintBulbActionsProvider((fun x -> x.ShowTypeHintsForTopLevelMembers), Strings.FSharpTypeHints_TopLevelMembersSettings_Header)
34+
inherit FSharpTypeHintBulbActionsProvider(_.ShowTypeHintsForTopLevelMembers, Strings.FSharpTypeHints_TopLevelMembersSettings_Header)
3535
static member val Instance = FSharpTopLevelMembersTypeHintBulbActionsProvider()
3636

3737
type FSharpLocalBindingTypeHintBulbActionsProvider private () =
38-
inherit FSharpTypeHintBulbActionsProvider((fun x -> x.ShowTypeHintsForLocalBindings), Strings.FSharpTypeHints_LocalBindingsSettings_Header)
38+
inherit FSharpTypeHintBulbActionsProvider(_.ShowTypeHintsForLocalBindings, Strings.FSharpTypeHints_LocalBindingsSettings_Header)
3939
static member val Instance = FSharpLocalBindingTypeHintBulbActionsProvider()
4040

4141
type FSharpOtherPatternsTypeHintBulbActionsProvider private () =
42-
inherit FSharpTypeHintBulbActionsProvider((fun x -> x.ShowForOtherPatterns), Strings.FSharpTypeHints_OtherPatternsSettings_Header)
42+
inherit FSharpTypeHintBulbActionsProvider(_.ShowForOtherPatterns, Strings.FSharpTypeHints_OtherPatternsSettings_Header)
4343
static member val Instance = FSharpOtherPatternsTypeHintBulbActionsProvider()

‎ReSharper.FSharp/src/FSharp/FSharp.Psi.Daemon/src/Options/FSharpTypeHintOptionsPage.fs

+1-1
Original file line numberDiff line numberDiff line change
@@ -56,4 +56,4 @@ type FSharpTypeHintsOptionsPage(lifetime: Lifetime, optionsPageContext: OptionsP
5656
let checkbox =
5757
this.AddBoolOption((fun (s: FSharpTypeHintOptions) -> s.HideSameLine),
5858
Strings.FSharpTypeHints_HideSameLinePipe_Description)
59-
this.AddBinding(checkbox, BindingStyle.IsEnabledProperty, (fun key -> key.ShowPipeReturnTypes), fun t -> t :> obj)
59+
this.AddBinding(checkbox, BindingStyle.IsEnabledProperty, _.ShowPipeReturnTypes, fun t -> t :> obj)

‎ReSharper.FSharp/src/FSharp/FSharp.Psi.Features/src/CodeCleanup/FSharpReformatCode.fs

+1-1
Original file line numberDiff line numberDiff line change
@@ -82,7 +82,7 @@ type FSharpReformatCode(textControlManager: ITextControlManager) =
8282
else
8383
let textControl = textControlManager.VisibleTextControls
8484
|> Seq.tryFind (fun c -> c.Document == document && c.Window.IsFocused.Value)
85-
let cursorPosition = textControl |> Option.map (fun c -> c.Caret.Position.Value.ToDocLineColumn())
85+
let cursorPosition = textControl |> Option.map _.Caret.Position.Value.ToDocLineColumn()
8686
let formatResult = fantomasHost.FormatDocument(filePath, text, settings, parsingOptions, newLineText, cursorPosition, settingsStore)
8787
let newCursorPosition = formatResult.CursorPosition
8888

‎ReSharper.FSharp/src/FSharp/FSharp.Psi.Features/src/CodeCleanup/FantomasHost.fs

+1-1
Original file line numberDiff line numberDiff line change
@@ -114,7 +114,7 @@ type FantomasHost(solution: ISolution, fantomasFactory: FantomasProcessFactory,
114114
member x.DumpRunOptions() =
115115
let versionToRun = fantomasDetector.VersionToRun.Value
116116
fantomasDetector.GetSettings()
117-
|> Seq.sortBy (fun x -> x.Key)
117+
|> Seq.sortBy _.Key
118118
|> Seq.map (fun x -> $"{x.Key}: Version = ({x.Value.Location}, {x.Value.Version}), Status = {x.Value.Status}")
119119
|> String.concat "\n"
120120
|> (+) $"Version to run: ({versionToRun.Location}, {versionToRun.Version})\n\n"

‎ReSharper.FSharp/src/FSharp/FSharp.Psi.Features/src/CodeCompletion/FSharpCodeCompletionContext.fs

+1-1
Original file line numberDiff line numberDiff line change
@@ -218,7 +218,7 @@ type FSharpCodeCompletionContext(context: CodeCompletionContext, fcsCompletionCo
218218
completionType = CodeCompletionType.SmartCompletion || completionType = CodeCompletionType.BasicCompletion
219219

220220
member this.GetCheckResults() =
221-
this.ParseAndCheckResults.Value |> Option.map (fun results -> results.CheckResults)
221+
this.ParseAndCheckResults.Value |> Option.map _.CheckResults
222222

223223
[<IntellisensePart(Instantiation.DemandAnyThreadUnsafe)>]
224224
type FSharpCodeCompletionContextProvider(fsXmlDocService: FSharpXmlDocService) =

‎ReSharper.FSharp/src/FSharp/FSharp.Psi.Features/src/CodeCompletion/Rules/FSharpRelevanceRule.fs

+1-1
Original file line numberDiff line numberDiff line change
@@ -63,7 +63,7 @@ type FSharpRelevanceRule() =
6363

6464
| :? FSharpField as field when
6565
field.DeclaringEntity
66-
|> Option.map (fun e -> e.IsEnum)
66+
|> Option.map _.IsEnum
6767
|> Option.defaultValue false ->
6868
markRelevance item CLRLookupItemRelevance.EnumMembers
6969

‎ReSharper.FSharp/src/FSharp/FSharp.Psi.Features/src/CodeCompletion/Rules/GenerateLambdaRule.fs

+2-2
Original file line numberDiff line numberDiff line change
@@ -105,7 +105,7 @@ type GenerateLambdaRule() =
105105
if not expectedType.IsFunctionType then false else
106106

107107
let fcsArgTypes = FcsTypeUtil.getFunctionTypeArgs false expectedType
108-
let lambdaParamTypes = fcsArgTypes |> List.map (fun f -> f.MapType(referenceOwner))
108+
let lambdaParamTypes = fcsArgTypes |> List.map _.MapType(referenceOwner)
109109

110110
let paramNames =
111111
lambdaParamTypes
@@ -125,7 +125,7 @@ type GenerateLambdaRule() =
125125

126126
let text =
127127
fcsArgTypes
128-
|> List.map (fun arg -> arg.Format(displayContext))
128+
|> List.map _.Format(displayContext)
129129
|> String.concat " -> "
130130

131131
let presentationText = $"fun {text} ->"

‎ReSharper.FSharp/src/FSharp/FSharp.Psi.Features/src/CodeCompletion/Rules/NamedUnionCaseFieldsPatRule.fs

+1-1
Original file line numberDiff line numberDiff line change
@@ -57,7 +57,7 @@ type NamedUnionCaseFieldsPatRule() =
5757
if isNull namedUnionCaseFieldsPat then Set.empty else
5858

5959
namedUnionCaseFieldsPat.FieldPatterns
60-
|> Seq.map (fun fieldPat -> fieldPat.ShortName)
60+
|> Seq.map _.ShortName
6161
|> Seq.filter (fun name -> name <> SharedImplUtil.MISSING_DECLARATION_NAME)
6262
|> Set.ofSeq
6363

‎ReSharper.FSharp/src/FSharp/FSharp.Psi.Features/src/CodeCompletion/Rules/OverrideMemberRule.fs

+1-1
Original file line numberDiff line numberDiff line change
@@ -163,7 +163,7 @@ type OverrideMemberRule() =
163163
mfvInstance.Mfv.CurriedParameterGroups
164164
|> Seq.map (fun group ->
165165
group
166-
|> Seq.map (fun p -> p.Type.Instantiate(substitution).Format(displayContext))
166+
|> Seq.map _.Type.Instantiate(substitution).Format(displayContext)
167167
|> String.concat ", "
168168
|> sprintf "(%s)"
169169
)

0 commit comments

Comments
 (0)