brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Ensure output directory exists.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-01 18:22:59 +02:00
parent 10ca5f9289
commit 0c9f2f36f0
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/web-static.scm
View file

@ -38,6 +38,7 @@
(chicken string) (chicken string)
(chicken process-context) (chicken process-context)
(chicken pathname) (chicken pathname)
(chicken file)
member-record member-record
utils utils
configuration) configuration)
@ -77,6 +78,10 @@
;; Generates all member files in given directory ;; Generates all member files in given directory
(define (gen-web-static mb dir) (define (gen-web-static mb dir)
(when (file-exists? dir)
(error 'gen-web-static "Directory is a file:" dir))
(when (not (directory-exists? dir))
(create-directory dir))
(let loop ((mb mb)) (let loop ((mb mb))
(when (not (null? mb)) (when (not (null? mb))
(gen-web-static-member (car mb) dir) (gen-web-static-member (car mb) dir)