   [application environment region]
   (str/join "-" [application environment region]))
 
-(defn- create-description
+(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?


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

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


(defn pause-registered?
  [application environment region]
  (using-redis (car/sismember awaiting-pause-key (field-for application environment region))))

(defn awaiting-pause
  []
  (map create-description (using-redis (car/smembers awaiting-pause-key))))

(defn register-pause
  [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/srem awaiting-pause-key (field-for application environment region)))))

(defn in-progress?
  [application environment region]
