diff options
Diffstat (limited to 'app')
| -rw-r--r-- | app/app.lisp | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/app/app.lisp b/app/app.lisp index 28f5465..32f3ad2 100644 --- a/app/app.lisp +++ b/app/app.lisp @@ -203,8 +203,7 @@ than the users." ((getopt :long-name "help") (if (and arguments (find-group-with-header (first arguments))) (help :item (find-group-with-header (first arguments))) - (help)) - (uiop:quit)) + (help))) ((getopt :long-name "whois") (assert (first arguments) () "--whois requires an argument, a user handle.") (cli::show-contributor (first arguments))) @@ -275,5 +274,5 @@ than the users." (getopt :long-name "all-flagged") (getopt :long-name "newest")))))) (t ; no arguments and no options, print help - (help))) - (uiop:quit)))) + (help))))) + (uiop:quit)) |