Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
dotNET Platform
fsharp
提交
18c79cff
F
fsharp
项目概览
dotNET Platform
/
fsharp
10 个月 前同步成功
通知
0
Star
1
Fork
0
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
DevOps
流水线
流水线任务
计划
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
F
fsharp
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
DevOps
DevOps
流水线
流水线任务
计划
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
流水线任务
提交
Issue看板
体验新版 GitCode,发现更多精彩内容 >>
未验证
提交
18c79cff
编写于
3月 30, 2023
作者:
P
Petr Pokorny
提交者:
GitHub
3月 30, 2023
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
Fix parameter name hints crashing with multi-line arguments (#15004)
上级
d71fde98
变更
2
隐藏空白更改
内联
并排
Showing
2 changed file
with
29 addition
and
5 deletion
+29
-5
vsintegration/src/FSharp.Editor/Hints/InlineParameterNameHints.fs
...ation/src/FSharp.Editor/Hints/InlineParameterNameHints.fs
+3
-4
vsintegration/tests/FSharp.Editor.Tests/Hints/InlineParameterNameHintTests.fs
...FSharp.Editor.Tests/Hints/InlineParameterNameHintTests.fs
+26
-1
未找到文件。
vsintegration/src/FSharp.Editor/Hints/InlineParameterNameHints.fs
浏览文件 @
18c79cff
...
...
@@ -9,6 +9,7 @@ open FSharp.Compiler.EditorServices
open
FSharp
.
Compiler
.
Symbols
open
FSharp
.
Compiler
.
Text
open
Hints
open
Microsoft
.
VisualStudio
.
FSharp
.
Editor
module
InlineParameterNameHints
=
...
...
@@ -56,10 +57,8 @@ module InlineParameterNameHints =
>>
Seq
.
contains
range
let
private
getSourceTextAtRange
(
sourceText
:
SourceText
)
(
range
:
range
)
=
let
line
=
sourceText
.
Lines
[
range
.
Start
.
Line
-
1
].
ToString
()
let
length
=
range
.
EndColumn
-
range
.
StartColumn
line
.
Substring
(
range
.
Start
.
Column
,
length
)
(
RoslynHelpers
.
FSharpRangeToTextSpan
(
sourceText
,
range
)
|>
sourceText
.
GetSubText
)
.
ToString
()
let
isMemberOrFunctionOrValueValidForHint
(
symbol
:
FSharpMemberOrFunctionOrValue
)
(
symbolUse
:
FSharpSymbolUse
)
=
...
...
vsintegration/tests/FSharp.Editor.Tests/Hints/InlineParameterNameHintTests.fs
浏览文件 @
18c79cff
...
...
@@ -494,7 +494,7 @@ let q = query { for x in { 1 .. 10 } do select x }
Assert
.
Empty
actual
[<
Fact
>]
let
``Hints are not shown when parameter names coin
s
ide with variable names``
()
=
let
``Hints are not shown when parameter names coin
c
ide with variable names``
()
=
let
code
=
"""
let getFullName name surname = $"
{
name
}
{
surname
}
"
...
...
@@ -517,3 +517,28 @@ let fullName = getFullName name lastName
let
actual
=
getParameterNameHints
document
Assert
.
Equal
(
expected
,
actual
)
[<
Fact
>]
let
``Hints don't break with multi-line arguments``
()
=
let
code
=
"""
None
|> Option.map (fun x ->
x + 5
)
|> ignore
"""
let
document
=
getFsDocument
code
let
expected
=
[
{
Content
=
"mapping = "
Location
=
(
2
,
15
)
}
]
let
actual
=
getParameterNameHints
document
Assert
.
Equal
(
expected
,
actual
)
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录