diff options
-rw-r--r-- | genenetwork/services/genenetwork.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/genenetwork/services/genenetwork.scm b/genenetwork/services/genenetwork.scm index 0f2e1d6..7347d4c 100644 --- a/genenetwork/services/genenetwork.scm +++ b/genenetwork/services/genenetwork.scm @@ -162,9 +162,11 @@ ;; Set owner-only permissions on secrets files. (for-each (lambda (file) (chmod file #o600)) - (list #$gn2-secrets - #$gn3-secrets - #$gn-auth-secrets)))))) + (append (list #$gn3-secrets) + (find-files #$gn2-secrets + #:directories? #f) + (find-files #$gn-auth-secrets + #:directories? #f))))))) (define (configuration-file-gexp alist) "Return a G-expression that constructs a configuration file of |