diff options
| -rw-r--r-- | tissue/web/server.scm | 7 |
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)))))) |