Fork me on GitHub
#datomic
<
2019-11-16
>
hadils20:11:21

Q: My release Clojure code (shown below) no longer works on a git commit; I have to supply a uname argument to release to the cloud. Anyone else experiencing this? Is there a fix? Here's the code:

(defn release
  "Do push and deploy of app.  Supports stable and unstable releases.  Returns when deploy finishes running."
  [args]
  (try
    (let [push-data (ion-dev/push args)
          deploy-args (merge (select-keys args [:creds-profile :region :uname])
                             (select-keys push-data [:rev])
                             {:group (group)})]
      (let [deploy-data (ion-dev/deploy deploy-args)
            deploy-status-args (merge (select-keys args [:creds-profile :region])
                                      (select-keys deploy-data [:execution-arn]))]
        (loop []
          (let [status-data (ion-dev/deploy-status deploy-status-args)]
            (if (= "RUNNING" (:code-deploy-status status-data))
              (do (Thread/sleep 5000) (recur))
              status-data)))))
    (catch Exception e
      {:deploy-status "ERROR"
       :message       (.getMessage e)})))
I am currently on com.datomic/client-cloud "0.8.78" and com.datomic/ion-dev "0.9.240" Here's the error message:
(release {})
=> {:deploy-status "ERROR", :message "You must either specify a uname or deploy from clean git commit"}