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)))
|
(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?)
|
||||||
|
|
Loading…
Reference in a new issue