anchor.diff:                                  let currentSnapshot = doc.TextBuffer.CurrentSnapshot
                                   let span = SnapshotSpan(currentSnapshot, 0, currentSnapshot.Length)
                                   classificationChanged.Trigger(self, ClassificationChangedEventArgs(span))
  -                        finally 
  -                            isWorking <- false
  -                    } |> Async.StartInThreadPoolSafe
  -                | None -> ()
  +                        with e -> Logging.logException e
  +                    } 
  +                Async.Start (worker, cancelToken.Token) 
  +            | None -> ()
   
       let dte = serviceProvider.GetService<EnvDTE.DTE, SDTE>()
       let events = dte.Events :?> EnvDTE80.Events2 
  
positive.code: 
  open System
  open System.IO
  open System.ComponentModel.Composition
  open Microsoft.VisualStudio.Text
  open Microsoft.VisualStudio.Text.Editor
  
negative.code: 
      let classificationChanged = Event<_,_>()
      let state = Atom None
      let cancellationToken = Atom None
      
      let getProject() =
          maybe {
              let dte = serviceProvider.GetService<EnvDTE.DTE, SDTE>()
  