aboutsummaryrefslogtreecommitdiff
path: root/guix/forge
diff options
context:
space:
mode:
Diffstat (limited to 'guix/forge')
-rw-r--r--guix/forge/tissue.scm10
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)))