diff options
Diffstat (limited to 'guix/forge/tissue.scm')
| -rw-r--r-- | guix/forge/tissue.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/guix/forge/tissue.scm b/guix/forge/tissue.scm index ea7c594..07687e8 100644 --- a/guix/forge/tissue.scm +++ b/guix/forge/tissue.scm @@ -235,11 +235,11 @@ available both as a command-line program and as a web server.") (ice-9 match)) (let ((user (getpw "tissue"))) - ;; Create socket directory. - (when #$(forge-unix-socket? socket) - (let ((socket-directory #$(dirname (forge-unix-socket-path socket)))) - (mkdir-p socket-directory) - (chown socket-directory (passwd:uid user) (passwd:gid user)))) + ;; Create socket directory if Unix socket. + #$(and (forge-unix-socket? socket) + #~(let ((socket-directory #$(dirname (forge-unix-socket-path socket)))) + (mkdir-p socket-directory) + (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))) |