                                    project "/_apis/build/definitions?api-version=2.0")]
     (try (-> (client/get build-definitions-url {:basic-auth ["USERNAME CAN BE ANY VALUE" token]})
              :body (json/parse-string true) :value)
-         (catch Exception e))))
+         (catch Exception e
+           (prn "Bad Response when attempting to retrieve build definitions.")
+           (prn e)))))

                        repository-id "/commits/" source-version "?api-version=1.0")]
    (try (-> (client/get commit-url {:basic-auth ["USERNAME CAN BE ANY VALUE" token]})
             :body (json/parse-string true) :comment)
         (catch Exception e))))

(defn- retrieve-last-two-builds [account project token build-definition-id]
  (let [last-two-builds-url (str "https://" account  ".visualstudio.com/defaultcollection/"

                                 "&definitions=" build-definition-id)]
    (try (-> (client/get last-two-builds-url {:basic-auth ["USERNAME CAN BE ANY VALUE" token]})
             :body (json/parse-string true) :value)
         (catch Exception e
           (prn "Bad Response when attempting to retrieve last two builds.")
           (prn e)))))

(defn retrieve-build-info [account project token build-definition-id]
  (let [[build previous-build] (retrieve-last-two-builds account project token build-definition-id)
