diff options
| author | Carlos Konstanski <carlos.konstanski@olo.com> | 2026-01-05 09:59:54 -0700 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2026-01-05 09:59:54 -0700 |
| commit | db5241f5f05209ca23b380eff9d52bf653bd5b29 (patch) | |
| tree | b45750b1a76d0aebc2ece0a3ce378533b18ad269 /lisp | |
| parent | 418d027903a36f30a8240fb9f82949bb62751618 (diff) | |
| parent | f9d42ead3a1c31be7759acc515b97de61fb0e55e (diff) | |
Merge pull request #15 from ololabs/inf-18490-fix-suboptimal-code
[INF-18490] Fix suboptimal code
Diffstat (limited to 'lisp')
| -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] |