From 3085370fd0744611edde6865cd381b3e67ff8972 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 19 Sep 2022 01:51:12 +0530
Subject: bin: Error out if web-dev subcommand is not given a website
 directory.

* bin/tissue (tissue-web-dev): Raise user error if not given a
website-directory command-line argument.
---
 bin/tissue | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'bin')

diff --git a/bin/tissue b/bin/tissue
index 798602f..39c15e0 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -333,6 +333,9 @@ Serve built website and issues of current repository.
                             (lambda (arg result)
                               (acons 'website-directory arg result))
                             '((port . 8080)))))
+       (unless (assq-ref args 'website-directory)
+         (raise (condition (make-user-error-condition)
+                           (make-message-condition "Argument WEBSITE-DIRECTORY is required."))))
        (when (assq-ref args 'listen-repl)
          (start-repl (assq-ref args 'listen-repl)))
        (start-web-server (make-socket-address
-- 
cgit v1.2.3