 
 (defn pause-registered?
   [application environment region]
-  (using-redis (car/hget awaiting-pause-key (field-for application environment region))))
+  (using-redis (car/sismember awaiting-pause-key (field-for application environment region))))
 
 (defn awaiting-pause
   []
-  (map create-description (apply hash-map (using-redis (car/hgetall awaiting-pause-key)))))
+  (map create-description (using-redis (car/smembers awaiting-pause-key))))
 
 (defn register-pause
   [application environment region]
-  (pos? (using-redis (car/hsetnx awaiting-pause-key (field-for application environment region)))))
+  (pos? (using-redis (car/sadd awaiting-pause-key (field-for application environment region)))))
 
 (defn unregister-pause
   [application environment region]
-  (pos? (using-redis (car/hdel awaiting-pause-key (field-for application environment region)))))
+  (pos? (using-redis (car/srem awaiting-pause-key (field-for application environment region)))))
 
 (defn in-progress?
   [application environment region]


(defn in-progress
  []
  (map create-description (apply hash-map (using-redis (car/hgetall in-progress-key)))))

(defn begin-deployment
  [{:keys [application environment id region]}]

  [application environment region]
  (str/join "-" [application environment region]))

(defn- create-description-with-id
  [[k id]]
  (let [[application environment region] (str/split k #"-" 3)]
    {:application application
     :environment environment
     :id id
     :region region}))

(defn- create-description
  [k]
  (let [[application environment region] (str/split k #"-" 3)]
    {:application application
     :environment environment
     :region region}))

(defn paused?
