anchor.diff:              let! doc = async { 
                   if doc = null then
                       let newDoc = new MyCountingDoc()
  -                    do! session.StoreAsync(newDoc, docKey) |> taskToAsync
  +                    do! session.StoreAsync(newDoc, docKey) |> Util.taskToAsync
                       return newDoc
                   else
                       return doc
  
positive.code:             | None -> return ()
          }
  
      let grouping = fst >> Set.singleton
  
      let processEvent (key:Guid) values =
  
negative.code: 
  type MyCountingDoc = Eventful.CsTests.MyCountingDoc
  
  module Util = 
      let taskToAsync (task:System.Threading.Tasks.Task) =
          let wrappedTask = 
              task.ContinueWith(fun _ -> 
  