anchor.diff:              | arg -> ()
           task.ContinueWith continuation |> Async.AwaitTask
    
  -    let inline startAsPlainTask (work : Async<unit>) = Task.Factory.StartNew(fun () -> work |> Async.RunSynchronously)
  +    let inline startAsPlainTask (work : Async<unit>) = 
  +        Task.Factory.StartNew(fun () -> work |> Async.RunSynchronously)
   
   type EventType = 
       | Completed
  
positive.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 ()) }
  
negative.code:             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) 
          }
      static member fromData (queue:Queue<'a>, jobId: Int64, data: string, opts: string, progress: int) =
          let sData = JsonConvert.DeserializeObject<'a>(data)
  