diff options
| -rw-r--r-- | sync/vps.scm | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/sync/vps.scm b/sync/vps.scm index 572040a..a7ec268 100644 --- a/sync/vps.scm +++ b/sync/vps.scm @@ -30,14 +30,14 @@ (lambda* (#:rest args2) (apply f (append args1 args2)))) -(define (every-pred-fn ps x) +(define (%every-pred-fn ps x) (if (null? ps) #t (and ((car ps) x) - (every-pred-fn (cdr ps) x)))) + (%every-pred-fn (cdr ps) x)))) (define (every-pred . ps) - (partial every-pred-fn ps)) + (partial %every-pred-fn ps)) (define (complement f) (lambda* (#:rest args) @@ -410,13 +410,12 @@ pki " mail-domain " key \"" (tls-priv-for mail-domain) "\""))) '("README.md" "README" "README.rst" "README.org")))) (simple-service 'init-srv-directories activation-service-type - #~(begin - (for-each (lambda (p) - (mkdir-p p) - (chmod p #o777)) - '("/srv/http" - "/srv/git" - "/srv/ci"))))) + #~(for-each (lambda (p) + (mkdir-p p) + (chmod p #o755)) + '("/srv/http" + "/srv/git" + "/srv/ci")))) %base-services)) (bootloader (bootloader-configuration |