Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
dotNET Platform
fsharp
提交
81f25e5d
F
fsharp
项目概览
dotNET Platform
/
fsharp
12 个月 前同步成功
通知
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,发现更多精彩内容 >>
提交
81f25e5d
编写于
4月 03, 2017
作者:
S
Saul Rennison
提交者:
Kevin Ransom (msft)
4月 03, 2017
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
Fixed items contained within modules (#2790)
上级
58e3753a
变更
1
隐藏空白更改
内联
并排
Showing
1 changed file
with
6 addition
and
6 deletion
+6
-6
src/fsharp/vs/ServiceNavigation.fs
src/fsharp/vs/ServiceNavigation.fs
+6
-6
未找到文件。
src/fsharp/vs/ServiceNavigation.fs
浏览文件 @
81f25e5d
...
...
@@ -501,11 +501,11 @@ module NavigateTo =
addIdent
NavigableItemKind
.
Exception
id
isSig
container
{
Type
=
ContainerType
.
Exception
;
Name
=
id
.
idText
}
let
addComponentInfo
kind
(
ComponentInfo
(_,
_,
_,
lid
,
_,
_,
_,
_))
isSig
container
=
let
addComponentInfo
containerType
kind
(
ComponentInfo
(_,
_,
_,
lid
,
_,
_,
_,
_))
isSig
container
=
match
lastInLid
lid
with
|
Some
id
->
addIdent
kind
id
isSig
container
|
_
->
()
{
Type
=
ContainerType
.
Type
;
Name
=
formatLongIdent
lid
}
{
Type
=
container
Type
;
Name
=
formatLongIdent
lid
}
let
addValSig
kind
(
ValSpfn
(_,
id
,
_,
_,
_,
_,
_,
_,
_,
_,
_))
isSig
container
=
addIdent
kind
id
isSig
container
...
...
@@ -578,7 +578,7 @@ module NavigateTo =
|
SynModuleSigDecl
.
NamespaceFragment
fragment
->
walkSynModuleOrNamespaceSig
fragment
container
|
SynModuleSigDecl
.
NestedModule
(
componentInfo
,
_,
nestedDecls
,
_)
->
let
container
=
addComponentInfo
NavigableItemKind
.
Module
componentInfo
true
container
let
container
=
addComponentInfo
ContainerType
.
Module
NavigableItemKind
.
Module
componentInfo
true
container
for
decl
in
nestedDecls
do
walkSynModuleSigDecl
decl
container
|
SynModuleSigDecl
.
Types
(
types
,
_)
->
...
...
@@ -590,7 +590,7 @@ module NavigateTo =
|
SynModuleSigDecl
.
Open
_
->
()
and
walkSynTypeDefnSig
(
TypeDefnSig
(
componentInfo
,
repr
,
members
,
_))
container
=
let
container
=
addComponentInfo
NavigableItemKind
.
Type
componentInfo
true
container
let
container
=
addComponentInfo
ContainerType
.
Type
NavigableItemKind
.
Type
componentInfo
true
container
for
m
in
members
do
walkSynMemberSig
m
container
match
repr
with
...
...
@@ -640,7 +640,7 @@ module NavigateTo =
|
SynModuleDecl
.
NamespaceFragment
(
fragment
)
->
walkSynModuleOrNamespace
fragment
container
|
SynModuleDecl
.
NestedModule
(
componentInfo
,
_,
modules
,
_,
_)
->
let
container
=
addComponentInfo
NavigableItemKind
.
Module
componentInfo
false
container
let
container
=
addComponentInfo
ContainerType
.
Module
NavigableItemKind
.
Module
componentInfo
false
container
for
m
in
modules
do
walkSynModuleDecl
m
container
|
SynModuleDecl
.
Types
(
typeDefs
,
_
range
)
->
...
...
@@ -652,7 +652,7 @@ module NavigateTo =
|
SynModuleDecl
.
Open
_
->
()
and
walkSynTypeDefn
(
TypeDefn
(
componentInfo
,
representation
,
members
,
_))
container
=
let
container
=
addComponentInfo
NavigableItemKind
.
Type
componentInfo
false
container
let
container
=
addComponentInfo
ContainerType
.
Type
NavigableItemKind
.
Type
componentInfo
false
container
walkSynTypeDefnRepr
representation
container
for
m
in
members
do
walkSynMemberDefn
m
container
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录