diff options
| author | Teddy Wing | 2021-02-03 00:34:01 +0100 |
|---|---|---|
| committer | Teddy Wing | 2021-02-03 00:34:36 +0100 |
| commit | 2d817001a98fc7922df69e893a64570203d64e69 (patch) | |
| tree | 72a5c2caa42fda48251f96da9837aa3170fdeb82 | |
| parent | 8e11ddad215279411560838917220301e13148fd (diff) | |
| download | extreload-2d817001a98fc7922df69e893a64570203d64e69.tar.bz2 | |
parse-options: Exit with error if `--socket-url` isn't given
| -rw-r--r-- | l/src/option.lisp | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/l/src/option.lisp b/l/src/option.lisp index a294325..22e6052 100644 --- a/l/src/option.lisp +++ b/l/src/option.lisp @@ -32,7 +32,10 @@ (opts:exit 0)) - ; (if ) ;; If no socket URL, error 64 + (when (null (getf options :socket-url)) + (format *error-output* "error: '--socket-url' is required~%") + + (opts:exit 64)) (make-instance 'config :socket-url (getf options :socket-url) |