anchor.diff:                                  vsLanguageService: VSLanguageService, serviceProvider: IServiceProvider,
                                   projectFactory: ProjectFactory, includeUnusedDeclarations: bool) as self =
       
  -    let getClassficationType cat =
  +    let getClassificationType cat =
           match cat with
           | Category.ReferenceType -> Some "FSharp.ReferenceType"
           | Category.ValueType -> Some "FSharp.ValueType"
  
positive.code: 
                              let! symbolsUses, lexer =
                                  vsLanguageService.GetAllUsesOfAllSymbolsInFile (snapshot, doc.FilePath, project, AllowStaleResults.No,
                                                                                  true, getSymbolDeclLocation)
  
                              let! parseResults = vsLanguageService.ParseFileInProject(doc.FilePath, snapshot.GetText(), project)
  
  
negative.code:                 |> Seq.skipWhile (fun { WordSpan = { Line = line }} -> line < spanStartLine)
                  |> Seq.choose (fun loc -> 
                      maybe {
                          let! clType = getClassificationType loc.Category
                          let! span = fromRange state.SnapshotSpan.Snapshot (loc.WordSpan.ToRange())
                          return clType, span.TranslateTo(snapshotSpan.Snapshot, SpanTrackingMode.EdgeExclusive) 
                      })
  