anchor.diff:              end \n"
   
           let! result = 
  -            this.queue.client.ScriptEvaluateAsync (
  +            this.queue.client().ScriptEvaluateAsync (
                   script, 
                   [|this.lockKey()|], 
                   [|(token.ToString ()) |> toValueStr|]
  
positive.code: open StackExchange.Redis
  open System.Threading.Tasks
  open Newtonsoft.Json
  
  [<AutoOpen>]
  module OxenConvenience = 
  
negative.code:         Failed = failedEvent.Publish
          Paused = pausedEvent.Publish
          Resumed = resumedEvent.Publish
      }
  
      //Internals
      member internal x.toKey (kind:string) = RedisKey.op_Implicit ("bull:" + name + ":" + kind)
      member internal x.toChannel (kind:string) = RedisChannel.op_Implicit ("bull:" + name + ":" + kind)
      member internal x.emitQueueEvent (eventType, queue:Queue<'a>) = 
          async {
              match eventType with 
              | Paused -> pausedEvent.Trigger({ queue = queue });
              | Resumed -> resumedEvent.Trigger({ queue = queue });
              | _ -> failwith "Not a queue event!"
          }
      member internal x.emitJobEvent (eventType, job:Job<'a>, ?value, ?exn, ?data) = 
          async {
              let eventData = 
                  {
                      job = job
                      progress = value
                      err = exn
                      data = None
                  }
              
              match eventType with 
              | Progress -> progressEvent.Trigger(eventData)
              | _ -> failwith "It'sNotYetBeenImplemented"
          }
      member internal x.client = dbFactory