From 07f67d57296c8c1e52c5283b7d710eeb99ac8384 Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Fri, 9 Jan 2026 10:28:45 -0700 Subject: Add health check field to octopus-machine output --- lisp/octopus/octopus.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/octopus/octopus.lisp b/lisp/octopus/octopus.lisp index 61302bf..3a31255 100644 --- a/lisp/octopus/octopus.lisp +++ b/lisp/octopus/octopus.lisp @@ -207,7 +207,8 @@ as an input filter are stored here for the ride through the queue.") (make-instance 'octopus-machine :id (id octopus-machine) :name (name octopus-machine) - :roles (roles octopus-machine))) + :roles (roles octopus-machine) + :health-status (health-status octopus-machine))) (defmacro define-octopus-api-call ((method-name) &body macro-body) (let ((endpoint (gensym))) -- cgit v1.3