Skip to content

Commit bf5e138

Browse files
author
7sharp9
committed
Added supprt for ReturnParameter in nested functions
1 parent 6db431a commit bf5e138

File tree

1 file changed

+7
-1
lines changed

1 file changed

+7
-1
lines changed

src/fsharp/vs/Symbols.fs

Lines changed: 7 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1453,7 +1453,13 @@ and FSharpMemberOrFunctionOrValue(cenv, d:FSharpMemberOrValData, item) =
14531453
FSharpParameter(cenv, rty, retInfo, x.DeclarationLocationOpt, isParamArrayArg=false, isOutArg=false, isOptionalArg=false)
14541454
| V v ->
14551455
match v.ValReprInfo with
1456-
| None -> failwith "not a module let binding or member"
1456+
| None ->
1457+
let _, tau = v.TypeScheme
1458+
if isFunTy cenv.g tau then
1459+
let _typeArguments, rty = stripFunTy cenv.g tau
1460+
FSharpParameter(cenv, rty, { Name=None; Attribs= [] }, x.DeclarationLocationOpt, isParamArrayArg=false, isOutArg=false, isOptionalArg=false)
1461+
else
1462+
failwith "not a module let binding or member"
14571463
| Some (ValReprInfo(_typars,argInfos,retInfo)) ->
14581464

14591465
let tau = v.TauType

0 commit comments

Comments
 (0)