fix a type check that only csc catches

This commit is contained in:
pho4cexa 2022-12-07 16:17:47 -08:00 committed by m455
parent 31f8ab2d0f
commit cbb8b3e606

View file

@ -161,9 +161,9 @@ string-block
(exit status))) (exit status)))
(define (main args) (define (main args)
(let-optionals args ((html-repo-path '())) (let-optionals args ((html-repo-path ""))
(when (null? html-repo-path) (when (equal? html-repo-path "")
(bail 1 "please specify a destination directory for html files")) (bail 1 "please specify a destination directory for html files"))
(unless (in-git-directory?) (unless (in-git-directory?)