fix a type check that only csc catches
This commit is contained in:
parent
31f8ab2d0f
commit
cbb8b3e606
1 changed files with 2 additions and 2 deletions
4
main.scm
4
main.scm
|
@ -161,9 +161,9 @@ string-block
|
|||
(exit status)))
|
||||
|
||||
(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"))
|
||||
|
||||
(unless (in-git-directory?)
|
||||
|
|
Loading…
Reference in a new issue