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:                                 s.Name(moveResult result)
                                   .Index(Nest.FieldIndexOption.NotAnalyzed)))))
  
      let indexCases (client:ElasticClient) date cases  =
          cases
          |> List.map(fun i -> {Result = i.GetType().Name; Date = date})
          |> List.map(fun case -> client.Index(case, fun idx -> idx.Index(moveResultsIndexName)))
          |> ignore
  
  module ProcessedMovesIndex =
  
  
negative.code: module MoveResultsIndex =
  
      type MoveResult = { Result: string;
                          Date: DateTime;
                          Count: int }
  
      let moveResultsIndexName = "files-in-src-dir"
  
      let private moveResult quotation =
          quotation
  