anchor.diff:          let settings = new ConnectionSettings(node)
           let client = new ElasticClient(settings)
   
  -        let date = System.DateTime.Now.Date
  +        let date = System.DateTime.Now
   
           createMoveResultsIndex client |> ignore
           createProcessedMovesIndex client |> ignore
   
  -        let indexCases cases =
  -            indexCases client date cases
  +        indexFilesInSourceDir client date report
  +        indexMoves client report
   
  -        indexCases report.Skips
  -        indexCases report.Successes
  -        indexCases report.Failures
  -
  -        indexMoves client report
           ()
   
       let reportToElastic (elasticUri:Uri option) (report:Report) =
  
positive.code: module MoveResultsIndex =
  
      type MoveResult = { Result: string;
                          Date: DateTime }
  
      let moveResultsIndexName = "move-results"
  
      let private moveResult quotation =
          quotation
  
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 =
  
  