aboutsummaryrefslogtreecommitdiff
path: root/app
diff options
context:
space:
mode:
authorColin Okay <okay@toyful.space>2022-03-12 19:28:52 -0600
committerColin Okay <okay@toyful.space>2022-03-12 19:28:52 -0600
commit67ea50250aefe30d0e40e0fe0318a9e4d814c16e (patch)
tree08667d1968cd6b5ccf5fea3d843e314b6c5c0f9a /app
parent50df94fd2a0fce7a2499a8ceafd6034adc69779e (diff)
bugfix; exiting too early for cache and config to save
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))