anchor.diff:          member val Statistics=statistics with get, set
           member val Memory=memory with get, set
   
  -    type BenchmarkReport(title: string, totalTime:TimeSpan, date:DateTime, commit:string, branchName:string, host:HostEnvironmentInfo, benchmarks:Benchmark list) =
  +    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
  
positive.code:                            
                  let typeMapping = new TypeMappingDescriptor<BenchmarkReport>()
                  typeMapping.AutoMap() |> ignore
                  typeMapping.Properties(fun p -> 
                      p.Nested<Benchmark>(fun n ->
                          n.AutoMap().Name(PropertyName.op_Implicit("benchmarks")) :> INestedProperty
                      ) :> IPromise<IProperties>
                  ) |> ignore
  
                  let mappings = new Mappings()
                  mappings.Add(typeName, typeMapping :> ITypeMapping)
  
negative.code: 
      let IndexResult (client:ElasticClient, file:string, date:DateTime, commit:string, branchName:string, indexName, typeName) =
  
          trace (sprintf "Indexing benchmark results (class) %s" file)
  
          let benchmarkReports = JsonConvert.DeserializeObject<BenchmarkReports>(File.ReadAllText(file))
          benchmarkReports.Date <- date
          benchmarkReports.Commit <- commit
          benchmarkReports.BranchName <- branchName
  
          for benchmarkReportSingle in benchmarkReports.Benchmarks do
  
              trace (sprintf "Indexing benchmark result (method) %s" benchmarkReportSingle.MethodTitle)
  
              let document = new BenchmarkReport(benchmarkReports.Title,
                                                 benchmarkReports.TotalTime,
                                                 benchmarkReports.Date,
                                                 benchmarkReports.Commit,
                                                 benchmarkReports.BranchName,
                                                 benchmarkReports.HostEnvironmentInfo,
                                                 benchmarkReportSingle)
              
              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 benchmark result (method): " + indexResponse.ServerError.Error.ToString()))
  
      let IndexResults (url, username, password) =
          if (String.IsNullOrEmpty url = false) then
              trace "Indexing benchmark reports"
              
              let date = DateTime.UtcNow
              let commit = getSHA1 "." "HEAD"
  