anchor.diff:              |> Array.toSeq
               |> Seq.collect id
   
  +    member x.InsertDocuments() =
           log.Debug <| lazy(sprintf "Starting document insert")
   
           use bulkInsert = documentStore.BulkInsert(databaseName)
  
positive.code:     let log = createLogger "Eventful.Raven.RavenReplayProjector"
      let numWorkers = 10
  
      let fetcher = {
          new IDocumentFetcher with
              member x.GetDocument<'TDocument> key : Tasks.Task<ProjectedDocument<'TDocument> option> = 
  
negative.code:     }
  
      let mutable messages : 'TMessage list = List.Empty
      let mutable inserts : ProcessAction seq = Seq.empty
  
      let projectors =
          BulkProjector.projectorsWithContext projectors fetcher
  