anchor.diff:              let client = queue.client
               let! job = client.HashGetAllAsync (jobId) |> Async.AwaitTask
               //staan hash values altijd op dezelfde volgorde
  -            return Job.fromData (queue, job.[0].Value |> fromValueI64, job.[1].Value |> fromValueStr, job.[2].Value |> fromValueStr, job.[3].Value |> fromValueI32) 
  +            return Job.fromData (
  +                queue, 
  +                job.[0].Value |> fromValueI64, 
  +                job.[1].Value |> fromValueStr, 
  +                job.[2].Value |> fromValueStr, 
  +                job.[3].Value |> fromValueI32) 
           }
       static member fromData (queue:Queue<'a>, jobId: Int64, data: string, opts: string, progress: int) =
           let sData = JsonConvert.DeserializeObject<'a>(data)
  
positive.code:             let dest = queue.toKey(set)
              let client:IDatabase = queue.client
              let multi = client.CreateTransaction()
              do! multi.ListRemoveAsync (activeList, toValueI64 this.jobId) |> Async.AwaitTask |> Async.Ignore
              do! multi.SetAddAsync (dest, toValueI64 this.jobId) |> Async.AwaitTask |> Async.Ignore
              return! multi.ExecuteAsync() |> Async.AwaitTask                       
          }
  
negative.code:     member this.progress progress = 
          async {
              let client:IDatabase = this.queue.client
              do! client.HashSetAsync (
                      this.queue.toKey(this.jobId.ToString ()), 
                      [| HashEntry (toValueStr "progress", toValueI32 progress) |]
                  ) |> Async.awaitPlainTask
              do! this.queue.emit(EventType.Progress, this, progress)
          }
      member this.remove () = async { raise (NotImplementedException ()) }
  