From b4605da3594b88f34087e4707e3129d98ff99ed6 Mon Sep 17 00:00:00 2001
From: Aleksey Veresov <aleksey@veresov.pro>
Date: Wed, 7 Apr 2021 23:35:02 +0300
Subject: Change in modules.

---
 src/Suem.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/Suem.hs')

diff --git a/src/Suem.hs b/src/Suem.hs
index eeb743d..6b2779a 100644
--- a/src/Suem.hs
+++ b/src/Suem.hs
@@ -14,6 +14,7 @@ import Data.IP
 import Network.Socket
 import Numeric
 import Machine
+import Control
 import Instructions
 import Utils
 import Device
@@ -441,12 +442,14 @@ makeSocket :: Maybe ConfigSocket -> IO (Maybe Socket)
 makeSocket (Just (ConfigUnix a)) = do
     sock <- socket AF_UNIX Stream defaultProtocol
     Network.Socket.bind sock $ SockAddrUnix a
+    Network.Socket.listen sock 1024
     return $ Just sock
 makeSocket (Just (ConfigInet a)) = do
     sock <- socket AF_INET Stream defaultProtocol
     Network.Socket.bind sock $ SockAddrInet
                                 (read $ tail $ dropWhile (/= ':') a)
                                 (ipString    $ takeWhile (/= ':') a)
+    Network.Socket.listen sock 1024
     return $ Just sock
 makeSocket Nothing = return Nothing
 
-- 
cgit v1.2.3