1 module Network.HTTP.Lucu.SocketLike
6 import qualified Network.Socket as So
7 import Network.HTTP.Lucu.HandleLike
8 import qualified OpenSSL.Session as SSL
9 import qualified System.IO as I
12 class (HandleLike (Handle s)) => SocketLike s where
14 accept :: s -> IO (Handle s, So.SockAddr)
17 instance SocketLike So.Socket where
18 type Handle So.Socket = I.Handle
20 = do (soPeer, addr) <- So.accept soSelf
21 hPeer <- So.socketToHandle soPeer I.ReadWriteMode
25 instance SocketLike (SSL.SSLContext, So.Socket) where
26 type Handle (SSL.SSLContext, So.Socket) = SSL.SSL
28 = do (soPeer, addr) <- So.accept soSelf
29 ssl <- SSL.connection ctx soPeer