From 67ea50250aefe30d0e40e0fe0318a9e4d814c16e Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Sat, 12 Mar 2022 19:28:52 -0600 Subject: bugfix; exiting too early for cache and config to save --- app/app.lisp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'app') 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)) -- cgit v1.2.3