anchor.diff:              | None -> return ()
           }
   
  +type RavenProjector (documentStore:Raven.Client.IDocumentStore) =
  +
       let grouping = fst >> Set.singleton
   
       let processEvent (key:Guid) values =
  
positive.code:                     doc.Value <- doc.Value + value
                  else
                      doc.Value <- doc.Value - value
              do! session.SaveChangesAsync() |> taskToAsync
          }
  
      let queue = new WorktrackingQueue<Guid, Guid * int>(fst >> Set.singleton, processEvent, 10000, 10);
  
negative.code: 
  type MyCountingDoc = Eventful.CsTests.MyCountingDoc
  
  module Util = 
      let taskToAsync (task:System.Threading.Tasks.Task) =
          let wrappedTask = 
              task.ContinueWith(fun _ -> 
  