anchor.diff:  module MoveResultsIndex =
   
       type MoveResult = { Result: string;
  -                        Date: DateTime }
  +                        Date: DateTime;
  +                        Count: int }
   
  -    let moveResultsIndexName = "move-results"
  +    let moveResultsIndexName = "files-in-src-dir"
   
       let private moveResult quotation =
           quotation
  
positive.code:         let settings = new ConnectionSettings(node)
          let client = new ElasticClient(settings)
  
          let date = System.DateTime.Now.Date
  
          createMoveResultsIndex client |> ignore
          createProcessedMovesIndex client |> ignore
  
          let indexCases cases =
              indexCases client date cases
  
          indexCases report.Skips
          indexCases report.Successes
          indexCases report.Failures
  
          indexMoves client report
          ()
  
      let reportToElastic (elasticUri:Uri option) (report:Report) =
  
negative.code:                                 s.Name(moveResult result)
                                   .Index(Nest.FieldIndexOption.NotAnalyzed)))))
  
      let private index (client:ElasticClient) (date:DateTime) (items:list<'a>) =
          if not (Seq.isEmpty items) then
              let name = items.Head.GetType().Name
  
              {Result = name; Date = date; Count = items.Length}
              |> fun case -> client.Index(case, fun idx -> idx.Index(moveResultsIndexName))
              |> ignore
  
      let indexFilesInSourceDir (client:ElasticClient) (date:DateTime) report =
          index client date report.Skips
          index client date report.Successes
          index client date report.Failures
  
  module ProcessedMovesIndex =
  
  