diff options
| -rw-r--r-- | app/account.lisp | 6 | ||||
| -rw-r--r-- | app/draft.lisp | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/app/account.lisp b/app/account.lisp index 7d4b749..bfb4125 100644 --- a/app/account.lisp +++ b/app/account.lisp @@ -11,7 +11,7 @@ :name "login" :usage "<USERNAME> <PASSWORD>" :description "obtains an API access key and stores it locally" - :handler #'account/login/command)) + :handler #'account/login/handler)) (defun account/logout/handler (cmd) (declare (ignore cmd)) @@ -21,7 +21,7 @@ (cli:make-command :name "logout" :description "revokes access for the currently stored key" - :handler #'account/logout/command)) + :handler #'account/logout/handler)) (defun account/signature/handler (cmd) (declare (ignore cmd)) @@ -50,7 +50,7 @@ (cli:make-command :name "whois" :description "View the user's signature, if they have one." - :handler #'account/whois/command)) + :handler #'account/whois/handler)) (defun account/invite/handler (cmd) (declare (ignore cmd)) diff --git a/app/draft.lisp b/app/draft.lisp index 32698ca..94489a0 100644 --- a/app/draft.lisp +++ b/app/draft.lisp @@ -84,5 +84,5 @@ (cli:make-command :name "draft" :description "draft, test, and publish new oneliners" - :handler #'draft/command + :handler #'draft/handler :sub-commands (draft/subcommands))) |