anchor.diff:               if token.FullMatchedLength = 1 && lineStr.[token.LeftColumn] = '^' then
                   StaticallyResolvedTypeParameterPrefix
                else Other
  +        elif token.Tag = FSharpTokenTag.LPAREN then
  +            if token.FullMatchedLength = 1 && lineStr.[token.LeftColumn+1] = '|' then
  +               ActivePattern
  +            else Other
           else Other
   
       // Operators: Filter out overlapped operators (>>= operator is tokenized as three distinct tokens: GREATER, GREATER, EQUALS.
  
positive.code:     let inline isIdentifier t = t.CharClass = FSharpTokenCharKind.Identifier
      let inline isOperator t = t.ColorClass = FSharpTokenColorKind.Operator
              
      let inline internal (|GenericTypeParameterPrefix|StaticallyResolvedTypeParameterPrefix|Other|) ((token: FSharpTokenInfo), (lineStr:string)) =
          if token.Tag = FSharpTokenTag.QUOTE then GenericTypeParameterPrefix
          elif token.Tag = FSharpTokenTag.INFIX_AT_HAT_OP then
               // The lexer return INFIX_AT_HAT_OP token for both "^" and "@" symbols.
  
negative.code:     | Operator
      | GenericTypeParameter
      | StaticallyResolvedTypeParameter
      | ActivePattern
      | Other
  
  type LexerSymbol =
  