diff options
Diffstat (limited to 'main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpParsedDocument.fs')
-rw-r--r-- | main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpParsedDocument.fs | 6 |
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 = |