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

Generate only existing members for web.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-18 16:05:29 +02:00
parent a1796f65d5
commit 262110a000
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/web-static.scm
View file

@ -84,7 +84,7 @@
(error 'gen-web-static "Directory is a file:" dir)) (error 'gen-web-static "Directory is a file:" dir))
(when (not (directory-exists? dir)) (when (not (directory-exists? dir))
(create-directory dir)) (create-directory dir))
(let* ((members-list (find-members-by-predicate mb (lambda x #t))) (let* ((members-list (find-members-by-predicate mb brmember-existing?))
(mlen0 (length members-list)) (mlen0 (length members-list))
(mlen (if (> mlen0 0) (mlen (if (> mlen0 0)
mlen0 mlen0