github/repo2html
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

whoops typo'd the path to the directory to create

Browse source
This commit is contained in:
pho4cexa 2022-12-07 16:17:46 -08:00 committed by m455
parent 85c2515534
commit 31f8ab2d0f
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
main.scm
View file

@ -132,7 +132,8 @@ string-block
(define (write-with-template filename display-body-thunk) (define (write-with-template filename display-body-thunk)
(let ((destination-directory (pathname-directory filename))) (let ((destination-directory (pathname-directory filename)))
(when destination-directory (create-directory pathname-directory #t))) (when destination-directory
(create-directory (make-pathname html-repo-path destination-directory) #t)))
(with-output-to-file (make-pathname html-repo-path filename) (with-output-to-file (make-pathname html-repo-path filename)
(lambda () (populate-html-template repository-name display-body-thunk)))) (lambda () (populate-html-template repository-name display-body-thunk))))