Network/HTTP/Lucu/SocketLike.hs

   1 module Network.HTTP.Lucu.SocketLike
   2     ( SocketLike(..)
   3     )
   4     where
   5
   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
  10
  11
  12 class (HandleLike (Handle s)) => SocketLike s where
  13     type Handle s :: *
  14     accept :: s -> IO (Handle s, So.SockAddr)
  15
  16
  17 instance SocketLike So.Socket where
  18     type Handle So.Socket = I.Handle
  19     accept soSelf
  20         = do (soPeer, addr) <- So.accept soSelf
  21              hPeer          <- So.socketToHandle soPeer I.ReadWriteMode
  22              return (hPeer, addr)
  23
  24
  25 instance SocketLike (SSL.SSLContext, So.Socket) where
  26     type Handle (SSL.SSLContext, So.Socket) = SSL.SSL
  27     accept (ctx, soSelf)
  28         = do (soPeer, addr) <- So.accept soSelf
  29              ssl            <- SSL.connection ctx soPeer
  30              SSL.accept ssl
  31              return (ssl, addr)