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 | |
| parent | 50df94fd2a0fce7a2499a8ceafd6034adc69779e (diff) | |
bugfix; exiting too early for cache and config to save
| -rw-r--r-- | app/app.lisp | 7 | ||||
| -rw-r--r-- | oneliners.cli.asd | 2 |
2 files changed, 4 insertions, 5 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)) diff --git a/oneliners.cli.asd b/oneliners.cli.asd index 8579132..1bc60c8 100644 --- a/oneliners.cli.asd +++ b/oneliners.cli.asd @@ -28,7 +28,7 @@ choice.") (defsystem "oneliners.cli/app" - :version "alpha-0.6.0" + :version "alpha-0.6.1" :author "Colin Okay" :license "AGPLv3" :depends-on ("net.didierverna.clon" |