summaryrefslogtreecommitdiff
path: root/lisp/webapps/snow/site.lisp
diff options
context:
space:
mode:
authorCarlos Konstanski <carlos.konstanski@olo.com>2026-01-08 07:52:36 -0700
committerGitHub <noreply@github.com>2026-01-08 07:52:36 -0700
commit9ad155313346f4e79d2490b4abc286c5ac9e20f8 (patch)
tree10ab821dc7bb749ef5fa41cfbeca18d40e47d152 /lisp/webapps/snow/site.lisp
parentdb5241f5f05209ca23b380eff9d52bf653bd5b29 (diff)
parentda4f53c33fa1faf267a536bc0a2c5a8dd2871c5e (diff)
Merge pull request #16 from ololabs/inf-18492-automate-queue-retry-and-log-streaming-retry-octopus-fix
[INF-18492] Automate Queue Retry and Log Streaming Retry octopus fix
Diffstat (limited to 'lisp/webapps/snow/site.lisp')
-rw-r--r--lisp/webapps/snow/site.lisp20
1 files changed, 18 insertions, 2 deletions
diff --git a/lisp/webapps/snow/site.lisp b/lisp/webapps/snow/site.lisp
index d1091ad..a640e9a 100644
--- a/lisp/webapps/snow/site.lisp
+++ b/lisp/webapps/snow/site.lisp
@@ -132,7 +132,19 @@
`(octopus-latest-deployments-view-json))
(defmacro .octopus-latest-deployments-results ()
- `(octopus-latest-deployments-results-json ode_only_p))
+ `(octopus-latest-deployments-results-json ode_only_p environment project))
+
+(defmacro .octopus-qrs-lsrs-redeploy ()
+ `(octopus-qrs-lsrs-redeploy-json))
+
+(defmacro .octopus-qrs-lsrs-redeploy-view ()
+ `(octopus-qrs-lsrs-redeploy-view-json))
+
+(defmacro .octopus-qrs-lsrs-redeploy-results ()
+ `(octopus-qrs-lsrs-redeploy-results-json environment))
+
+(defmacro .octopus-qrs-lsrs-redeploy-results-submit ()
+ `(octopus-qrs-lsrs-redeploy-results-submit-json))
(define-endpoint :get "/" () .base)
(define-endpoint :post "/location" ((location :parameter-type 'string)) .location)
@@ -167,4 +179,8 @@
(define-endpoint :post "/octopus-ode-deploy-release/results" ((project_name :parameter-type 'string) (version :parameter-type 'string) (ode_names :parameter-type 'string)) .octopus-ode-deploy-release-results)
(define-endpoint :get "/octopus-latest-deployments" () .octopus-latest-deployments)
(define-endpoint :get "/octopus-latest-deployments/view" () .octopus-latest-deployments-view)
-(define-endpoint :post "/octopus-latest-deployments/results" ((ode_only_p :parameter-type 'string)) .octopus-latest-deployments-results)
+(define-endpoint :post "/octopus-latest-deployments/results" ((ode_only_p :parameter-type 'string) (environment :parameter-type 'string) (project :parameter-type 'string)) .octopus-latest-deployments-results)
+(define-endpoint :get "/octopus-qrs-lsrs-redeploy" () .octopus-qrs-lsrs-redeploy)
+(define-endpoint :get "/octopus-qrs-lsrs-redeploy/view" () .octopus-qrs-lsrs-redeploy-view)
+(define-endpoint :post "/octopus-qrs-lsrs-redeploy/results" ((environment :parameter-type 'string)) .octopus-qrs-lsrs-redeploy-results)
+(define-endpoint :post "/octopus-qrs-lsrs-redeploy/results/submit" () .octopus-qrs-lsrs-redeploy-results-submit)