                            "revision" ""
                            "stack" ""
                            "region" region}
-        required-params (amend-params (select-keys params required-keys))]
+        required-params (amend-params region (select-keys params required-keys))]
     (merge additional-params required-params)))
 
 (defn- application-params [application-name]

(defn- is-security-group-name? [security-group]
  (re-find #"^sg-" security-group))

(defn- get-security-group-id [security-group]
  "hello")

(defn- replace-security-group-names [params]
  (if-let [security-group-names (get params "selectedSecurityGroups")]
    (map (fn [sg] (if (is-security-group-name? sg)
                   (get-security-group-id sg)
                   sg))
         security-group-names)
    params))

(defn- amend-params [params]
  (comment (-> (replace-load-balancer-param params)
               (replace-security-group-names params)))
  params)

(defn- create-manual-deploy-params [params region application-name]
  (let [additional-params {"appName" application-name

(defn- image-list-url [region application-name]
  (str asgard-url "/" region "/image/list/" application-name ".json"))

(defn- security-groups-list-url [region]
  (str asgard-url "/" region "/security/list.json"))

(defn application
  "Retrieves information about an application from Asgard"
  [region application-name]
