From bd186d69fabf1fd7ece99a85d3ab3379c1f2ea97 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?F=C3=A9lix=20Sipma?= Date: Tue, 20 Feb 2018 16:31:03 +0100 Subject: socket naming support --- src/Shop/Server.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- cgit v1.2.1