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