diff options
| author | Colin Okay <okay@toyful.space> | 2022-03-12 19:28:52 -0600 |
|---|---|---|
| committer | Colin Okay <okay@toyful.space> | 2022-03-12 19:28:52 -0600 |
| commit | 67ea50250aefe30d0e40e0fe0318a9e4d814c16e (patch) | |
| tree | 08667d1968cd6b5ccf5fea3d843e314b6c5c0f9a /app/app.lisp | |
| parent | 50df94fd2a0fce7a2499a8ceafd6034adc69779e (diff) | |
bugfix; exiting too early for cache and config to save
Diffstat (limited to 'app/app.lisp')
| -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)) |