diff options
| author | Arun Isaac | 2022-09-15 20:04:55 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-09-15 20:04:55 +0530 |
| commit | f6beefdeacb8f1e67844142d73fc3e2de38db254 (patch) | |
| tree | f01e026e90bd26e5e7b4754a60011f8f5a9fd2f9 | |
| parent | 7fb0dc621bc4785e9bb8778dbc18174c3503f974 (diff) | |
| download | guix-forge-f6beefdeacb8f1e67844142d73fc3e2de38db254.tar.gz guix-forge-f6beefdeacb8f1e67844142d73fc3e2de38db254.tar.lz guix-forge-f6beefdeacb8f1e67844142d73fc3e2de38db254.zip | |
tissue: Set ownership of state directory recursively.
* guix/forge/tissue.scm (tissue-activation): Set ownership of state
directory recursively.
| -rw-r--r-- | guix/forge/tissue.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/forge/tissue.scm b/guix/forge/tissue.scm index ab86a11..81771c9 100644 --- a/guix/forge/tissue.scm +++ b/guix/forge/tissue.scm @@ -221,7 +221,9 @@ available both as a command-line program and as a web server.") (chown socket-directory (passwd:uid user) (passwd:gid user)))) ;; Create state directory. (mkdir-p #$state-directory) - (chown #$state-directory (passwd:uid user) (passwd:gid user))) + (for-each (lambda (file) + (chown file (passwd:uid user) (passwd:gid user))) + (find-files #$state-directory #:directories? #t))) ;; Create host directories if they don't exist, and set ;; permissions. (for-each (match-lambda |