diff --git a/vsintegration/src/FSharp.Editor/Classification/ClassificationService.fs b/vsintegration/src/FSharp.Editor/Classification/ClassificationService.fs index 3b136c6f2ad..9f9840d9b47 100644 --- a/vsintegration/src/FSharp.Editor/Classification/ClassificationService.fs +++ b/vsintegration/src/FSharp.Editor/Classification/ClassificationService.fs @@ -19,6 +19,8 @@ open Microsoft.CodeAnalysis.Text // IVT, we'll maintain the status quo. #nowarn "44" +open Microsoft.FSharp.Compiler.SourceCodeServices + [, FSharpConstants.FSharpLanguageName)>] type internal FSharpClassificationService [] @@ -56,7 +58,10 @@ type internal FSharpClassificationService match RoslynHelpers.TryFSharpRangeToTextSpan(sourceText, range) with | None -> () | Some span -> - let span = Tokenizer.fixupSpan(sourceText, span) + let span = + match classificationType with + | SemanticClassificationType.Printf -> span + | _ -> Tokenizer.fixupSpan(sourceText, span) result.Add(ClassifiedSpan(span, FSharpClassificationTypes.getClassificationTypeName(classificationType))) } |> Async.Ignore |> RoslynHelpers.StartAsyncUnitAsTask cancellationToken