 
 (defn in-progress
   []
-  (map create-description (apply hash-map (using-redis (car/hgetall in-progress-key)))))
+  (map create-description-with-id (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
  [[k id]]
  (let [[application environment region] (str/split k #"-" 3)]
    {:application application
     :environment environment
     :id id
     :region region}))

(defn paused?


(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]
