uplime/lamb
uplime
/
lamb
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix sockets and use correct address family

This commit is contained in:
darkf 2013-10-24 00:34:56 -07:00
parent d275773bab
commit 9672c5fb8f
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
interp.hs
View File

@ -129,10 +129,12 @@ _fclose handle@(StreamV h) = do
_sockopen (TupleV [StrV host, IntV port]) = do
(handles,env) <- get
sock <- lift $ SO.socket SO.AF_INET SO.Stream SO.defaultProtocol
addr:_ <- lift $ SO.getAddrInfo Nothing (Just host) (Just $ show port)
lift $ SO.connect sock (SO.addrAddress addr)
handle <- lift $ SO.socketToHandle sock ReadWriteMode
handle <- lift $ SO.withSocketsDo $ do
addr:_ <- SO.getAddrInfo Nothing (Just host) (Just $ show port)
sock <- SO.socket (SO.addrFamily addr) SO.Stream SO.defaultProtocol
SO.connect sock (SO.addrAddress addr)
handle <- SO.socketToHandle sock ReadWriteMode
return handle
put (handles ++ [handle], env)
return . StreamV $ length handles