summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorFélix Sipma <felix.sipma@no-log.org>2018-02-20 16:31:03 +0100
committerFélix Sipma <felix.sipma@no-log.org>2018-02-20 16:31:41 +0100
commitbd186d69fabf1fd7ece99a85d3ab3379c1f2ea97 (patch)
tree68d90c8e6440505f1756658d1cac5d4253c5fc93
parent1cb79a5544a2ca465afbed3c5cab5706da39c7b4 (diff)
socket naming support
-rw-r--r--src/Shop/Server.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Shop/Server.hs b/src/Shop/Server.hs
index 21d0d65..aa60274 100644
--- a/src/Shop/Server.hs
+++ b/src/Shop/Server.hs
@@ -40,7 +40,7 @@ serveApp f = do
Nothing -> runSettings settings (logger $ f cfg)
Just s -> do
sock <- socket AF_UNIX Stream 0
- bind sock $ SockAddrUnix "shop-server.sock"
+ bind sock $ SockAddrUnix s
listen sock maxListenQueue
runSettingsSocket settings sock (logger $ f cfg)
close sock