anchor.diff:          body.IndexName <- index
           body.Validate() >>= createJob
       
  -    override __.Process(request, body) = SomeResponse(processRequest request.ResName body.Value, Ok, BadRequest)
  +    override __.Process(request, body) = SomeResponse(processRequest request.ResId.Value body.Value, Ok, BadRequest)
  
positive.code: //                ok()
      
      let processFile(body : CsvIndexingRequest, path : string) =
          let reader = new TextFieldParser(path)
          reader.TextFieldType <- FieldType.Delimited
          reader.SetDelimiters([|","|])
          let headers = 
  
negative.code:         | [||] -> fail <| Error.HeaderRowIsEmpty
          | _ -> 
                  while not reader.EndOfData do
                      try
                          let currentRow = reader.ReadFields()
                          let document = new Document.Dto(body.IndexName, currentRow.[0])
                          document.TimeStamp <- 0L
                          // The first column is always id so skip it
                          for i = 1 to currentRow.Length - 1 do
                              document.Fields.Add(headers.[i], currentRow.[i])
                          queueService.AddDocumentQueue(document)
                      with e -> Log.warnEx(e)
                  ok()
          
      let bulkRequestProcessor = 
          MailboxProcessor.Start(fun inbox -> 
              let rec loop() = 
  