diff options
Diffstat (limited to 'lisp/octopus/octopus.lisp')
| -rw-r--r-- | lisp/octopus/octopus.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
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))) |