diff options
| author | nosami <jasonimison@gmail.com> | 2017-05-11 13:00:59 +0300 |
|---|---|---|
| committer | nosami <jasonimison@gmail.com> | 2017-05-11 13:00:59 +0300 |
| commit | 6039742f071a3106c9e2e59f76d6605af21b8bd4 (patch) | |
| tree | e1b9c9835d8adafbac7636aa1c130a5811aebc84 /main | |
| parent | 98d4367fdcee7519c230d386e4bf19d1f492dfb3 (diff) | |
Use array variant of String.Concat
Diffstat (limited to 'main')
| -rw-r--r-- | main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpParsedDocument.fs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpParsedDocument.fs b/main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpParsedDocument.fs index d27a38d171..eb0dde1670 100644 --- a/main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpParsedDocument.fs +++ b/main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpParsedDocument.fs @@ -28,9 +28,10 @@ type FSharpParsedDocument(fileName, location: DocumentLocation option) = let tokenListToComment (tokenList: FSharpTokenInfo list, lineText: string) = let comment = tokenList - |> List.filter(fun token -> token.CharClass = FSharpTokenCharKind.LineComment) - |> List.map(fun token -> lineText.[token.LeftColumn..token.RightColumn]) - |> String.concat "" + |> Array.ofList + |> Array.filter(fun token -> token.CharClass = FSharpTokenCharKind.LineComment) + |> Array.map(fun token -> lineText.[token.LeftColumn..token.RightColumn]) + |> System.String.Concat comment.TrimStart('/', ' ') |