jedis_fail.clj

(defn get-field! [^Class klass instance ^String name]
  (.get (doto (.getDeclaredField klass name) (.setAccessible true)) instance))

(defn ^ScriptingCommands scripting-commands [conn]
  (if (instance? JedisCluster conn)
    (let [conn-handler     (get-field! JedisCluster conn "connectionHandler")
          max-redirections (get-field! JedisCluster conn "maxRedirections")]
      (reify ScriptingCommands
        (evalsha [this ^String sha1 ^java.util.List keys ^java.util.List args]
          (.run (proxy [JedisClusterCommand] [conn-handler max-redirections]
                  (execute [connection] (.evalsha ^Jedis connection sha1 ^java.util.List (take 1 keys) args)))
                (first keys)))))
    conn))