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