Movatterモバイル変換


[0]ホーム

URL:


Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

Sign up
Appearance settings

Commitb083323

Browse files
authored
Merge pull request #3929 from vasily-kirichenko/remove-duplicates-from-completion
Remove duplicates from completion
2 parentsba1e562 +ca4dc83 commitb083323

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

‎src/fsharp/symbols/SymbolHelpers.fs‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -782,7 +782,7 @@ module internal SymbolHelpers =
782782
protectAssemblyExploration1027(fun()->
783783
match itemwith
784784
| ItemWhereTypIsPreferred ty->
785-
if isAppTy g tythen hash(tcrefOfAppTy g ty).Stamp
785+
if isAppTy g tythen hash(tcrefOfAppTy g ty).LogicalName
786786
else1010
787787
| Item.ILField(ILFieldInfo(_, fld))->
788788
System.Runtime.CompilerServices.RuntimeHelpers.GetHashCode fld// hash on the object identity of the AbstractIL metadata blob for the field
@@ -795,12 +795,12 @@ module internal SymbolHelpers =
795795
| Item.CtorGroup(name, meths)-> name.GetHashCode()+(meths|> List.fold(fun st a-> st+ a.ComputeHashCode())0)
796796
|(Item.Value vref| Item.CustomBuilder(_, vref))-> hash vref.LogicalName
797797
| Item.ActivePatternCase(APElemRef(_apinfo, vref, idx))-> hash(vref.LogicalName, idx)
798-
| Item.ExnCase(tcref)-> hash tcref.Stamp
798+
| Item.ExnCase(tcref)-> hash tcref.LogicalName
799799
| Item.UnionCase(UnionCaseInfo(_, UCRef(tcref, n)),_)-> hash(tcref.Stamp, n)
800800
| Item.RecdField(RecdFieldInfo(_, RFRef(tcref, n)))-> hash(tcref.Stamp, n)
801801
| Item.Event evt-> evt.ComputeHashCode()
802802
| Item.Property(_name, pis)-> hash(pis|> List.map(fun pi-> pi.ComputeHashCode()))
803-
| Item.UnqualifiedType(tcref::_)-> hash tcref.Stamp
803+
| Item.UnqualifiedType(tcref::_)-> hash tcref.LogicalName
804804
|_-> failwith"unreachable")}
805805

806806
letCompletionItemDisplayPartialEquality g=

0 commit comments

Comments
 (0)

[8]ページ先頭

©2009-2025 Movatter.jp