aboutsummaryrefslogtreecommitdiff
path: root/app
diff options
context:
space:
mode:
Diffstat (limited to 'app')
-rw-r--r--app/app.lisp7
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))