anchor.diff:                              getCategoriesAndLocations (symbolsUses, parseResults.ParseTree, lexer, getTextLineOneBased, openDeclarations, entitiesMap)
                               |> Array.sortBy (fun { WordSpan = { Line = line }} -> line)
                           
  -                        state.Swap (fun _ -> 
  -                            Some { SnapshotSpan = SnapshotSpan (snapshot, 0, snapshot.Length);
  -                                   Spans = spans }) |> ignore
  +                        state.Swap (fun _ -> Data (SnapshotSpan (snapshot, 0, snapshot.Length), spans)) |> ignore
   
                           // TextBuffer is null if a solution is closed at this moment
                           if textDocument.TextBuffer <> null then
  
positive.code:         |> Option.map classificationRegistry.GetClassificationType
  
      let classificationChanged = Event<_,_>()
      let state = Atom None
      let cancellationToken = Atom None
      
      let getProject() =
  
negative.code: 
  [<NoComparison>]
  type private ClassifierState =
      | NoData
      | Updating of snapshotSpan: SnapshotSpan
      | Data of snapshotSpan: SnapshotSpan * spans: CategorizedColumnSpan []
  
  type SyntaxConstructClassifier (textDocument: ITextDocument, 
                                  buffer: ITextBuffer, 
  