From bd186d69fabf1fd7ece99a85d3ab3379c1f2ea97 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?F=C3=A9lix=20Sipma?= <felix.sipma@no-log.org>
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.3