diff options
| -rw-r--r-- | src/deployment.lisp | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/deployment.lisp b/src/deployment.lisp index 3c6704e..a25e4f2 100644 --- a/src/deployment.lisp +++ b/src/deployment.lisp @@ -69,6 +69,9 @@ You can then eval (NAME) to execute this deployment." `(defun ,name () (deploy-these ,connection ,host ,@properties))) +;; TODO some useful combination of DEFHOST and DEFHOSTDEPLOY so that you don't +;; have to use two forms to specify the default connection type. Probably +;; want argument order to be similar to DEPLOY, DEPLOY-THESE etc. (defmacro defhostdeploy (connection host-name) "Where HOST-NAME names a host as defined with DEFHOST, define a function which does (deploy CONNECTION (symbol-value HOST)). |