Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Add ChangeToUpcast code fix #10463

Merged
merged 4 commits into from Nov 18, 2020
Merged

Add ChangeToUpcast code fix #10463

Show file tree
Hide file tree
Changes from 1 commit
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
f4474eb
Add ChangeToUpcast code fix
cartermp Nov 14, 2020
b397126
Merge branch 'main' into convert-to-upcast
cartermp Nov 17, 2020
5488ffc
Merge branch 'main' into convert-to-upcast
cartermp Nov 18, 2020
aa36347
Merge branch 'main' into convert-to-upcast
cartermp Nov 18, 2020
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Jump to
Jump to file
Failed to load files.
Diff view
Diff view
55 changes: 55 additions & 0 deletions vsintegration/src/FSharp.Editor/CodeFix/ChangeToUpcast.fs
View file
Open in desktop
@@ -0,0 +1,55 @@
// Copyright (c) Microsoft Corporation. All Rights Reserved. See License.txt in the project root for license information.

namespace Microsoft.VisualStudio.FSharp.Editor

open System.Composition
open System.Threading.Tasks

open Microsoft.CodeAnalysis.Text
open Microsoft.CodeAnalysis.CodeFixes

[<ExportCodeFixProvider(FSharpConstants.FSharpLanguageName, Name = "ChangeToUpcast"); Shared>]
type internal FSharpChangeToUpcastCodeFixProvider() =
inherit CodeFixProvider()

let fixableDiagnosticIds = set ["FS3198"]

override __.FixableDiagnosticIds = Seq.toImmutableArray fixableDiagnosticIds

override this.RegisterCodeFixesAsync context : Task =
asyncMaybe {
let! sourceText = context.Document.GetTextAsync(context.CancellationToken)
let text = sourceText.GetSubText(context.Span).ToString()

// Only works if it's one or the other
let isDowncastOperator = text.Contains(":?>")
let isDowncastKeyword = text.Contains("downcast")
do! Option.guard ((isDowncastOperator || isDowncastKeyword) && not (isDowncastOperator && isDowncastKeyword))

let replacement =
if isDowncastOperator then
text.Replace(":?>", ":>")
else
text.Replace("downcast", "upcast")

let title =
if isDowncastOperator then
SR.UseUpcastOperator()
else
SR.UseUpcastKeyword()

let diagnostics =
context.Diagnostics
|> Seq.filter (fun x -> fixableDiagnosticIds |> Set.contains x.Id)
|> Seq.toImmutableArray

let codeFix =
CodeFixHelpers.createTextChangeCodeFix(
title,
context,
(fun () -> asyncMaybe.Return [| TextChange(context.Span, replacement) |]))

context.RegisterCodeFix(codeFix, diagnostics)
}
|> Async.Ignore
|> RoslynHelpers.StartAsyncUnitAsTask(context.CancellationToken)
1 change: 1 addition & 0 deletions vsintegration/src/FSharp.Editor/FSharp.Editor.fsproj
View file
Open in desktop
Expand Up @@ -89,6 +89,7 @@
<Compile Include="Commands\FsiCommandService.fs" />
<Compile Include="Commands\XmlDocCommandService.fs" />
<Compile Include="CodeFix\CodeFixHelpers.fs" />
<Compile Include="CodeFix\ChangeToUpcast.fs" />
<Compile Include="CodeFix\AddNewKeywordToDisposableConstructorInvocation.fs" />
<Compile Include="CodeFix\AddOpenCodeFixProvider.fs" />
<Compile Include="CodeFix\ProposeUppercaseLabel.fs" />
Expand Down
6 changes: 6 additions & 0 deletions vsintegration/src/FSharp.Editor/FSharp.Editor.resx
View file
Open in desktop
Expand Up @@ -219,4 +219,10 @@
<data name="FSharpDisposableTopLevelValuesClassificationType" xml:space="preserve">
<value>F# Dispostable Values (top-level)</value>
</data>
<data name="UseUpcastKeyword" xml:space="preserve">
<value>Use 'upcast'</value>
</data>
<data name="UseUpcastOperator" xml:space="preserve">
<value>Use ':&gt;' operator</value>
</data>
</root>
10 changes: 10 additions & 0 deletions vsintegration/src/FSharp.Editor/xlf/FSharp.Editor.cs.xlf
View file
Open in desktop
Expand Up @@ -172,6 +172,16 @@
<target state="translated">Formátování</target>
<note />
</trans-unit>
<trans-unit id="UseUpcastKeyword">
<source>Use 'upcast'</source>
<target state="new">Use 'upcast'</target>
<note />
</trans-unit>
<trans-unit id="UseUpcastOperator">
<source>Use ':&gt;' operator</source>
<target state="new">Use ':&gt;' operator</target>
<note />
</trans-unit>
</body>
</file>
</xliff>
10 changes: 10 additions & 0 deletions vsintegration/src/FSharp.Editor/xlf/FSharp.Editor.de.xlf
View file
Open in desktop
Expand Up @@ -172,6 +172,16 @@
<target state="translated">Formatierung</target>
<note />
</trans-unit>
<trans-unit id="UseUpcastKeyword">
<source>Use 'upcast'</source>
<target state="new">Use 'upcast'</target>
<note />
</trans-unit>
<trans-unit id="UseUpcastOperator">
<source>Use ':&gt;' operator</source>
<target state="new">Use ':&gt;' operator</target>
<note />
</trans-unit>
</body>
</file>
</xliff>
10 changes: 10 additions & 0 deletions vsintegration/src/FSharp.Editor/xlf/FSharp.Editor.es.xlf
View file
Open in desktop
Expand Up @@ -172,6 +172,16 @@
<target state="translated">Formato</target>
<note />
</trans-unit>
<trans-unit id="UseUpcastKeyword">
<source>Use 'upcast'</source>
<target state="new">Use 'upcast'</target>
<note />
</trans-unit>
<trans-unit id="UseUpcastOperator">
<source>Use ':&gt;' operator</source>
<target state="new">Use ':&gt;' operator</target>
<note />
</trans-unit>
</body>
</file>
</xliff>
10 changes: 10 additions & 0 deletions vsintegration/src/FSharp.Editor/xlf/FSharp.Editor.fr.xlf
View file
Open in desktop
Expand Up @@ -172,6 +172,16 @@
<target state="translated">Mise en forme</target>
<note />
</trans-unit>
<trans-unit id="UseUpcastKeyword">
<source>Use 'upcast'</source>
<target state="new">Use 'upcast'</target>
<note />
</trans-unit>
<trans-unit id="UseUpcastOperator">
<source>Use ':&gt;' operator</source>
<target state="new">Use ':&gt;' operator</target>
<note />
</trans-unit>
</body>
</file>
</xliff>
10 changes: 10 additions & 0 deletions vsintegration/src/FSharp.Editor/xlf/FSharp.Editor.it.xlf
View file
Open in desktop
Expand Up @@ -172,6 +172,16 @@
<target state="translated">Formattazione</target>
<note />
</trans-unit>
<trans-unit id="UseUpcastKeyword">
<source>Use 'upcast'</source>
<target state="new">Use 'upcast'</target>
<note />
</trans-unit>
<trans-unit id="UseUpcastOperator">
<source>Use ':&gt;' operator</source>
<target state="new">Use ':&gt;' operator</target>
<note />
</trans-unit>
</body>
</file>
</xliff>
10 changes: 10 additions & 0 deletions vsintegration/src/FSharp.Editor/xlf/FSharp.Editor.ja.xlf
View file
Open in desktop
Expand Up @@ -172,6 +172,16 @@
<target state="translated">書式設定</target>
<note />
</trans-unit>
<trans-unit id="UseUpcastKeyword">
<source>Use 'upcast'</source>
<target state="new">Use 'upcast'</target>
<note />
</trans-unit>
<trans-unit id="UseUpcastOperator">
<source>Use ':&gt;' operator</source>
<target state="new">Use ':&gt;' operator</target>
<note />
</trans-unit>
</body>
</file>
</xliff>
10 changes: 10 additions & 0 deletions vsintegration/src/FSharp.Editor/xlf/FSharp.Editor.ko.xlf
View file
Open in desktop
Expand Up @@ -172,6 +172,16 @@
<target state="translated">서식</target>
<note />
</trans-unit>
<trans-unit id="UseUpcastKeyword">
<source>Use 'upcast'</source>
<target state="new">Use 'upcast'</target>
<note />
</trans-unit>
<trans-unit id="UseUpcastOperator">
<source>Use ':&gt;' operator</source>
<target state="new">Use ':&gt;' operator</target>
<note />
</trans-unit>
</body>
</file>
</xliff>
10 changes: 10 additions & 0 deletions vsintegration/src/FSharp.Editor/xlf/FSharp.Editor.pl.xlf
View file
Open in desktop
Expand Up @@ -172,6 +172,16 @@
<target state="translated">Formatowanie</target>
<note />
</trans-unit>
<trans-unit id="UseUpcastKeyword">
<source>Use 'upcast'</source>
<target state="new">Use 'upcast'</target>
<note />
</trans-unit>
<trans-unit id="UseUpcastOperator">
<source>Use ':&gt;' operator</source>
<target state="new">Use ':&gt;' operator</target>
<note />
</trans-unit>
</body>
</file>
</xliff>
10 changes: 10 additions & 0 deletions vsintegration/src/FSharp.Editor/xlf/FSharp.Editor.pt-BR.xlf
View file
Open in desktop
Expand Up @@ -172,6 +172,16 @@
<target state="translated">Formatação</target>
<note />
</trans-unit>
<trans-unit id="UseUpcastKeyword">
<source>Use 'upcast'</source>
<target state="new">Use 'upcast'</target>
<note />
</trans-unit>
<trans-unit id="UseUpcastOperator">
<source>Use ':&gt;' operator</source>
<target state="new">Use ':&gt;' operator</target>
<note />
</trans-unit>
</body>
</file>
</xliff>
10 changes: 10 additions & 0 deletions vsintegration/src/FSharp.Editor/xlf/FSharp.Editor.ru.xlf
View file
Open in desktop
Expand Up @@ -172,6 +172,16 @@
<target state="translated">Форматирование</target>
<note />
</trans-unit>
<trans-unit id="UseUpcastKeyword">
<source>Use 'upcast'</source>
<target state="new">Use 'upcast'</target>
<note />
</trans-unit>
<trans-unit id="UseUpcastOperator">
<source>Use ':&gt;' operator</source>
<target state="new">Use ':&gt;' operator</target>
<note />
</trans-unit>
</body>
</file>
</xliff>
10 changes: 10 additions & 0 deletions vsintegration/src/FSharp.Editor/xlf/FSharp.Editor.tr.xlf
View file
Open in desktop
Expand Up @@ -172,6 +172,16 @@
<target state="translated">Biçimlendirme</target>
<note />
</trans-unit>
<trans-unit id="UseUpcastKeyword">
<source>Use 'upcast'</source>
<target state="new">Use 'upcast'</target>
<note />
</trans-unit>
<trans-unit id="UseUpcastOperator">
<source>Use ':&gt;' operator</source>
<target state="new">Use ':&gt;' operator</target>
<note />
</trans-unit>
</body>
</file>
</xliff>
10 changes: 10 additions & 0 deletions vsintegration/src/FSharp.Editor/xlf/FSharp.Editor.zh-Hans.xlf
View file
Open in desktop
Expand Up @@ -172,6 +172,16 @@
<target state="translated">正在格式化</target>
<note />
</trans-unit>
<trans-unit id="UseUpcastKeyword">
<source>Use 'upcast'</source>
<target state="new">Use 'upcast'</target>
<note />
</trans-unit>
<trans-unit id="UseUpcastOperator">
<source>Use ':&gt;' operator</source>
<target state="new">Use ':&gt;' operator</target>
<note />
</trans-unit>
</body>
</file>
</xliff>
10 changes: 10 additions & 0 deletions vsintegration/src/FSharp.Editor/xlf/FSharp.Editor.zh-Hant.xlf
View file
Open in desktop
Expand Up @@ -172,6 +172,16 @@
<target state="translated">格式化</target>
<note />
</trans-unit>
<trans-unit id="UseUpcastKeyword">
<source>Use 'upcast'</source>
<target state="new">Use 'upcast'</target>
<note />
</trans-unit>
<trans-unit id="UseUpcastOperator">
<source>Use ':&gt;' operator</source>
<target state="new">Use ':&gt;' operator</target>
<note />
</trans-unit>
</body>
</file>
</xliff>