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.

1 files changed, 3 insertions, 0 deletions

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