anchor.diff:              for file in benchmarkJsonFiles
                   do IndexResult (client, file, date, commit, branchName, indexName, typeName)
   
  -            trace "Indexed benchmark reports into Elasticsearch"+            trace "Indexed benchmark reports"
positive.code: 
      let IndexResult (client:ElasticClient, file:string, date:DateTime, commit:string, branchName:string, indexName, typeName) =
  
          trace (sprintf "Indexing report %s into Elasticsearch" file)
  
          let document = JsonConvert.DeserializeObject<BenchmarkReport>(File.ReadAllText(file))
          document.Date <- date
          document.Commit <- commit
          document.BranchName <- branchName
  
          let indexRequest = new IndexRequest<BenchmarkReport>(indexName, typeName)
          indexRequest.Document <- document
          indexRequest.Pipeline <- pipelineName
  
          let indexResponse = client.Index(indexRequest)
  
          if indexResponse.IsValid = false then
                  raise (Exception("Unable to index report into Elasticsearch: " + indexResponse.ServerError.Error.ToString()))
  
      let IndexResults (url, username, password) =
          if (String.IsNullOrEmpty url = false) then
              trace "Indexing benchmark reports into Elasticsearch"
              
              let date = DateTime.UtcNow
              let commit = getSHA1 "." "HEAD"
  
negative.code:         member val Statistics=statistics with get, set
          member val Memory=memory with get, set
  
      type BenchmarkReports(title: string, totalTime:TimeSpan, date:DateTime, commit:string, branchName:string, host:HostEnvironmentInfo, benchmarks:Benchmark list) =
          member val Title = title with get, set
          member val TotalTime = totalTime with get, set
          member val Date = date with get, set
  