anchor.diff:          | _ -> None
   
       let (|ComputationExpression|_|) ts =
  -        if isIdentifier ts.TokenColor then
  +        if isIdentifier ts.TokenInfo.ColorClass then
               match ts.SymbolUse with
               | Some symbolUse ->
                   match symbolUse.IsFromComputationExpression with
  
positive.code:         | _ -> true
  
      let (|Identifier|_|) ts =
          match isIdentifier ts.TokenColor with
          | true -> Identifier Some ts.SymbolUse
          | false -> None
  
  
negative.code:             | Comment -> style.CommentsSingleLine
              | StringLiteral -> style.String
              | NumberLiteral -> style.Number
              | PunctuationBrackets -> style.PunctuationForBrackets
              | Punctuation -> style.Punctuation
              | Module
              | ActivePatternCase
              | Record
  