accept soSelf
= do (soPeer, addr) <- So.accept soSelf
hPeer <- So.socketToHandle soPeer I.ReadWriteMode
return (hPeer, addr)
accept soSelf
= do (soPeer, addr) <- So.accept soSelf
hPeer <- So.socketToHandle soPeer I.ReadWriteMode
return (hPeer, addr)
instance SocketLike (SSL.SSLContext, So.Socket) where
type Handle (SSL.SSLContext, So.Socket) = SSL.SSL
instance SocketLike (SSL.SSLContext, So.Socket) where
type Handle (SSL.SSLContext, So.Socket) = SSL.SSL
accept (ctx, soSelf)
= do (soPeer, addr) <- So.accept soSelf
ssl <- SSL.connection ctx soPeer
SSL.accept ssl
return (ssl, addr)
accept (ctx, soSelf)
= do (soPeer, addr) <- So.accept soSelf
ssl <- SSL.connection ctx soPeer
SSL.accept ssl
return (ssl, addr)