Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
dotNET Platform
fsharp
提交
12ee48cf
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,发现更多精彩内容 >>
提交
12ee48cf
编写于
9月 29, 2015
作者:
R
Robert Jeppesen
提交者:
KevinRansom
9月 29, 2015
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
Allow WsdlTypeProvider to work on a fresh install of Windows 10/VS2015.
Replaced the nesting with a list of candidates. Fixes #637
上级
12b33caf
变更
1
隐藏空白更改
内联
并排
Showing
1 changed file
with
12 addition
and
9 deletion
+12
-9
src/fsharp/FSharp.Data.TypeProviders/Util.fs
src/fsharp/FSharp.Data.TypeProviders/Util.fs
+12
-9
未找到文件。
src/fsharp/FSharp.Data.TypeProviders/Util.fs
浏览文件 @
12ee48cf
...
@@ -102,15 +102,18 @@ module internal Util =
...
@@ -102,15 +102,18 @@ module internal Util =
|
null
->
()
|
null
->
()
|
_
->
key
.
Dispose
()
|
_
->
key
.
Dispose
()
reg32view
.
Dispose
()
// if reg32view were really null, we would not be here and the user would have more serious issues not being able to access HKLM
reg32view
.
Dispose
()
// if reg32view were really null, we would not be here and the user would have more serious issues not being able to access HKLM
useKey
@
"SOFTWARE
\
Microsoft
\
Microsoft SDKs
\
Windows
\
v8.0A
\
WinSDK-NetFx40Tools"
(
fun
key
->
match
tryResult
key
with
let
SDK_REGPATHS
=
[
@
"Software
\
Microsoft
\
Microsoft SDKs
\
NETFXSDK
\
4.6
\
WinSDK-NetFx40Tools"
|
Some
r
->
r
@
"Software
\
Microsoft
\
Microsoft SDKs
\
Windows
\
v8.1A
\
WinSDK-NetFx40Tools"
|
None
->
@
"Software
\
Microsoft
\
Microsoft SDKs
\
Windows
\
v8.0A
\
WinSDK-NetFx40Tools"
useKey
@
"SOFTWARE
\
Microsoft
\
Microsoft SDKs
\
Windows
\
v7.0A
\
WinSDK-NetFx40Tools"
(
fun
key
->
@
"Software
\
Microsoft
\
Microsoft SDKs
\
Windows
\
v7.1
\
WinSDK-NetFx40Tools"
match
tryResult
key
with
@
"Software
\
Microsoft
\
Microsoft SDKs
\
Windows
\
v7.0A
\
WinSDK-NetFx40Tools"
]
|
Some
r
->
r
|
None
->
SDK_REGPATHS
raise
<|
System
.
NotSupportedException
(
FSData
.
SR
.
unsupportedFramework
()
)))
|>
Seq
.
tryPick
(
fun
p
->
useKey
p
tryResult
)
|>
function
|
Some
p
->
p
|
_
->
raise
<|
System
.
NotSupportedException
(
FSData
.
SR
.
unsupportedFramework
()
)
let
sdkUtil
name
=
Path
.
Combine
(
sdkPath
()
,
name
)
let
sdkUtil
name
=
Path
.
Combine
(
sdkPath
()
,
name
)
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录