From dc79c75ed097162616a13405d2badc68a72eae6b Mon Sep 17 00:00:00 2001 From: EuAndreh Date: Sat, 5 Dec 2020 09:07:42 -0300 Subject: vps.scm: Cosmetic changes --- sync/vps.scm | 19 +++++++++---------- 1 file changed, 9 insertions(+), 10 deletions(-) (limited to 'sync') 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 -- cgit v1.2.3