anchor.diff:  
       /// get the entry from the hash that correspons with the name
       let getHashEntryByName (hash: HashEntry array) name =
  -        hash |> Seq.tryFind (fun h -> h.Name |> string = name)
  +        hash |> Seq.tryFind (fun h -> h.Name |> fromValueString = name)
       
       /// calc unix time from millisecs since 1-1-1970
       let toUnixTime (dt:DateTime) = (dt - epoch).TotalMilliseconds
  
positive.code:     let toValueI32 (x:int32) = RedisValue.op_Implicit(x:int32)
      /// make RedisValue from float
      let toValueFloat (x:float) = RedisValue.op_Implicit(x:float)
      /// get RedisValue from RedisKey with a long in the middle
      let valueToKeyLong (x:RedisValue):RedisKey = RedisKey.op_Implicit(int64(x).ToString ())
      /// get RedisChannel from RedisKey
  
negative.code:                 delayedJobChannel,
                  (fun c v -> 
                      async {
                          this.updateDelayTimer(v |> fromValueFloat)
                      } |> Async.RunSynchronously))
  
      do logger.Info "subscribed to %A" newJobChannel
  