                  (zip/xml-zip))]
     (if (= 200 status)
       body
-      (throw-aws-exception "ELB" (get params "Action") url status (get-message body))))
+      (throw-aws-exception "ELB" (get params "Action") url status body)))
 
   (defn decode-message
     [encoded-message]

(def ^:const sts-url (env :service-aws-sts-url))
(def ^:const sts-version (env :service-aws-sts-api-version))

(defn throw-aws-exception
  [title action url status message]
  (throw+ {:type ::aws
           :title (str title " request failed while performing the action '" action "'")
           :url url
           :status status
           :message message}))

(defn- get-message
  [body]
  (str (xml1-> body :Errors :Error :Code text)
       "\n"
       (xml1-> body :Errors :Error :Message text)))

(defn ec2-request
  [params]

    (condp = status
      200 body
      404 nil
      (throw-aws-exception "IAM" (get params "Action") url status body))))

(defn elb-request
  [params]
