summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2022-09-19 01:51:12 +0530
committerArun Isaac2022-09-19 02:09:10 +0530
commit3085370fd0744611edde6865cd381b3e67ff8972 (patch)
tree889074e278b1c780add92ba755814fc39c6471c2
parentf85e3af67a01561e3ee91f1296233c7bcb697cf8 (diff)
downloadtissue-3085370fd0744611edde6865cd381b3e67ff8972.tar.gz
tissue-3085370fd0744611edde6865cd381b3e67ff8972.tar.lz
tissue-3085370fd0744611edde6865cd381b3e67ff8972.zip
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.
-rwxr-xr-xbin/tissue3
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