anchor.diff:      }
   
       let mutable messages : 'TMessage list = List.Empty
  +    let mutable inserts : ProcessAction seq = Seq.empty
   
       let projectors =
           BulkProjector.projectorsWithContext projectors fetcher
  
positive.code:             |> Array.toSeq
              |> Seq.collect id
  
          log.Debug <| lazy(sprintf "Starting document insert")
  
          use bulkInsert = documentStore.BulkInsert(databaseName)
  
negative.code: 
      let printReport v =
          log.Debug <| lazy v
      
      member x.DatabaseName: string = databaseName
  
      member x.Enqueue (message : 'TMessage) =
          messages <- message::messages
  
      member x.ProcessQueuedItems() =
          log.Debug <| lazy(sprintf "ProcessQueuedItems: %A. Count: %A" databaseName messages.Length)
  
          inserts <-
              messages
              // reverse messages so they run in order
              |> List.rev
  