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


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

(defn pause
  [application environment region]
  (pos? (using-redis (car/hsetnx paused-key (field-for application environment region)))))

(defn resume
  [application environment 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?
