No intermediate strings while joining

1 files changed, 4 insertions, 2 deletions

diff --git a/main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpParsedDocument.fs b/main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpParsedDocument.fs
index 0643088b09..d27a38d171 100644
--- a/main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpParsedDocument.fs
+++ b/main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpParsedDocument.fs
@@ -28,8 +28,10 @@ type FSharpParsedDocument(fileName, location: DocumentLocation option) =
         let tokenListToComment (tokenList: FSharpTokenInfo list, lineText: string) =
             let comment = 
                 tokenList
-                |> List.filter(fun t -> t.CharClass = FSharpTokenCharKind.LineComment)
-                |> List.fold(fun acc token -> acc + lineText.[token.LeftColumn..token.RightColumn]) ""
+                |> List.filter(fun token -> token.CharClass = FSharpTokenCharKind.LineComment)
+                |> List.map(fun token -> lineText.[token.LeftColumn..token.RightColumn])
+                |> String.concat ""
+
             comment.TrimStart('/', ' ')
 
         let computation =