diff --git a/src/Workspaces/VisualBasic/Portable/Extensions/TypeSyntaxGeneratorVisitor.vb b/src/Workspaces/VisualBasic/Portable/Extensions/TypeSyntaxGeneratorVisitor.vb index d03c4d7baabb1b802311b59be20cbc7c1e5690e3..2f7ef6b2284092fc29a1d3d5250392478495cb96 100644 --- a/src/Workspaces/VisualBasic/Portable/Extensions/TypeSyntaxGeneratorVisitor.vb +++ b/src/Workspaces/VisualBasic/Portable/Extensions/TypeSyntaxGeneratorVisitor.vb @@ -129,19 +129,15 @@ Namespace Microsoft.CodeAnalysis.VisualBasic.Extensions Dim hasNames = Not names.IsDefault Return SyntaxFactory.TupleType(SyntaxFactory.SeparatedList( - types.Select(Function(t, i) - Dim element As TupleElementSyntax - - If (hasNames AndAlso names(i) IsNot Nothing) Then - element = SyntaxFactory.NamedTupleElement(SyntaxFactory.IdentifierName(names(i)), - SyntaxFactory.SimpleAsClause(SyntaxFactory.Token(SyntaxKind.AsKeyword), Nothing, t.GenerateTypeSyntax())) - Else - - element = SyntaxFactory.TypedTupleElement(t.GenerateTypeSyntax()) - End If - - Return element - End Function))) + types.Select(Function(t, i) If(hasNames AndAlso names(i) IsNot Nothing, + SyntaxFactory.NamedTupleElement( + SyntaxFactory.IdentifierName(names(i)), + SyntaxFactory.SimpleAsClause( + SyntaxFactory.Token(SyntaxKind.AsKeyword), + Nothing, + t.GenerateTypeSyntax())), + DirectCast(SyntaxFactory.TypedTupleElement( + t.GenerateTypeSyntax()), TupleElementSyntax))))) End Function Public Overrides Function VisitNamedType(symbol As INamedTypeSymbol) As TypeSyntax