From 2d817001a98fc7922df69e893a64570203d64e69 Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Wed, 3 Feb 2021 00:34:01 +0100
Subject: parse-options: Exit with error if `--socket-url` isn't given

---
 l/src/option.lisp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'l/src')

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)
-- 
cgit v1.2.3