   (:import  [java.util UUID]))
 
 (def ^:private qkey "Prefixed queue key"
-  (memoize (car/make-keyfn "carmine" "queue")))
+  (memoize (car/make-keyfn "mqueue")))
 
 (defn enqueue
   "Pushes given message (any Clojure datatype) to named queue. Returns message

        end
      end
    end"
   {:qk-messages       (qkey qname "hash" "messages")
    :qk-locks          (qkey qname "hash" "locks")
    :qk-id-circle      (qkey qname "list" "id-circle")
    :qk-recently-done  (qkey qname "set"  "recently-done")
    :qk-backoff        (qkey qname "flag" "backoff?")}
   {:current-time      (str (System/currentTimeMillis))
    :handler-ttl-msecs (str handler-ttl-msecs)
    :backoff-msecs     (str backoff-msecs)


                  (try (handler-fn message-content)
                       (car/with-conn pool spec
                         (car/sadd (qkey qname "recently-done")
                                       message-id))
                       (catch Exception e
                         (timbre/error
