summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tissue/web/server.scm7
1 files changed, 5 insertions, 2 deletions
diff --git a/tissue/web/server.scm b/tissue/web/server.scm
index 41ff4ce..dec0a35 100644
--- a/tissue/web/server.scm
+++ b/tissue/web/server.scm
@@ -241,5 +241,8 @@ git repository. CSS is a URI to a stylesheet."
#:port (sockaddr:port socket-address)))
;; Unix socket
((= (sockaddr:fam socket-address) AF_UNIX)
- (list #:socket (make-unix-domain-server-socket
- #:path (sockaddr:path socket-address)))))))
+ (let ((socket (make-unix-domain-server-socket
+ #:path (sockaddr:path socket-address))))
+ ;; Grant read-write permissions to all users.
+ (chmod (sockaddr:path socket-address) #o666)
+ (list #:socket socket))))))