diff options
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 |