anchor.diff:  open Raven.Json.Linq
   
   module BatchOperations =
  -    let buildPutCommand (key, doc, etag) =
  +    let buildPutCommand (key, doc, etag, _) =
           let cmd = new PutCommandData()
           cmd.Document <- RavenJObject.FromObject(doc)
           cmd.Key <- key
  
positive.code:                 else
                      doc.Value <- doc.Value - value
  
              do! writeQueue.AddWithCallback ((docKey, doc,etag), complete)
  
              do! wait |> Async.Ignore
          }
  
      let queue = new WorktrackingQueue<Guid, Guid * int>(fst >> Set.singleton, processEvent, 10000, 10);
  
  
negative.code:             | None -> return ()
          }
  
  type BatchWrite = (string * MyCountingDoc * Raven.Abstractions.Data.Etag * (bool -> Async<unit>))
  
  open Raven.Abstractions.Commands
  
  