Use background CancellableTask in VS instead of async & asyncMaybe

vsintegration/src/FSharp.Editor/Classification/ClassificationService.fs

@@ -109,7 +109,6 @@ type internal FSharpClassificationService [<ImportingConstructor>] () =
         )
 
         result.ToImmutable()
-
 
     static let addSemanticClassification
         sourceText
@@ -198,7 +197,9 @@ type internal FSharpClassificationService [<ImportingConstructor>] () =
                     TelemetryReporter.ReportSingleEventWithDuration(TelemetryEvents.AddSyntacticCalssifications, eventProps)
 
                 if not isOpenDocument then
-                    let classifiedSpans = getLexicalClassifications (document.FilePath, defines, sourceText, textSpan, cancellationToken)
+                    let classifiedSpans =
+                        getLexicalClassifications (document.FilePath, defines, sourceText, textSpan, cancellationToken)
+
                     result.AddRange(classifiedSpans)
                 else
                     result.AddRange(

vsintegration/src/FSharp.Editor/Hints/HintService.fs

@@ -27,12 +27,7 @@ module HintService =
                 |> Seq.collect (InlineParameterNameHints(parseResults).GetHintsForUnionCase symbol)
             | _ -> []
 
-        let rec loop hintKinds acc =
-            match hintKinds with
-            | [] -> acc
-            | hintKind :: hintKinds -> (getHintsPerKind hintKind) :: (loop hintKinds acc)
-
-        loop (hintKinds |> Set.toList) []
+        hintKinds |> Set.toList |> List.map getHintsPerKind
 
     let private getHintsForSymbol (sourceText: SourceText) parseResults hintKinds (symbol, symbolUses) =
         let hints = getHints sourceText parseResults hintKinds symbolUses symbol