diff options
| -rw-r--r-- | lisp/octopus/octopus.lisp | 14 | ||||
| -rw-r--r-- | lisp/webapps/snow/clojurescript/snow/src/core.cljs | 2 |
2 files changed, 8 insertions, 8 deletions
diff --git a/lisp/octopus/octopus.lisp b/lisp/octopus/octopus.lisp index ba012c6..88712a3 100644 --- a/lisp/octopus/octopus.lisp +++ b/lisp/octopus/octopus.lisp @@ -443,13 +443,13 @@ as an input filter are stored here for the ride through the queue.") (not (org-ckons-core::match-it "YARP" (name (project deployment)))) (or (not (gethash (name (environment deployment)) deploy-hash)) (string> (completed-time deployment) (completed-time (gethash (name (environment deployment)) deploy-hash))))))) - (let* ((deploy-hash (make-hash-table :test 'equal)) - (deployments (loop for deployment in (get-octopus-deployments octopus :ode-only-p ode-only-p) - when (deployment-included-p deployment deploy-hash) - do (let ((release (get-octopus-release octopus (project deployment) (release-version deployment)))) - (when (version-control-reference release) - (setf (release deployment) release) - (setf (gethash (name (environment deployment)) deploy-hash) deployment)))))) + (let ((deploy-hash (make-hash-table :test 'equal))) + (loop for deployment in (get-octopus-deployments octopus :ode-only-p ode-only-p) + when (deployment-included-p deployment deploy-hash) + do (let ((release (get-octopus-release octopus (project deployment) (release-version deployment)))) + (when (version-control-reference release) + (setf (release deployment) release) + (setf (gethash (name (environment deployment)) deploy-hash) deployment)))) (sort (loop for deployment being the hash-values of deploy-hash collect (make-instance 'octopus-latest-deployment :deployment-id (id deployment) diff --git a/lisp/webapps/snow/clojurescript/snow/src/core.cljs b/lisp/webapps/snow/clojurescript/snow/src/core.cljs index 922df5a..c2078af 100644 --- a/lisp/webapps/snow/clojurescript/snow/src/core.cljs +++ b/lisp/webapps/snow/clojurescript/snow/src/core.cljs @@ -150,7 +150,7 @@ [:tr (for [key keys] [:td [:code (str (get rec key))]])])]]]))) - + ;; notifications (defn notifications [jsonobj] |