diff options
author | Aleksey Veresov <aleksey@veresov.pro> | 2021-04-07 23:35:02 +0300 |
---|---|---|
committer | Aleksey Veresov <aleksey@veresov.pro> | 2021-04-07 23:35:02 +0300 |
commit | b4605da3594b88f34087e4707e3129d98ff99ed6 (patch) | |
tree | e4667dc6a748a916d5763d1cc6d25b42fe0d80b5 /src/Suem.hs | |
parent | 5dfcc43bfed0e3db9ec1fdae9dea6eea0c5ca220 (diff) | |
download | suem-b4605da3594b88f34087e4707e3129d98ff99ed6.tar suem-b4605da3594b88f34087e4707e3129d98ff99ed6.tar.xz suem-b4605da3594b88f34087e4707e3129d98ff99ed6.zip |
Change in modules.
Diffstat (limited to 'src/Suem.hs')
-rw-r--r-- | src/Suem.hs | 3 |
1 files changed, 3 insertions, 0 deletions
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 |