recvSMTPS :: Context -> Int -> B.ByteString -> IO ()
recvSMTPS ctx micros code =
  runResourceT $ source $$ sink code
  where source = forever $ liftIO chunk >>= yield
        chunk  = timeout micros $ recvData ctx

-- |
-- Render an email using the RFC 2822 message format.
recvSMTPS :: Context -> Int -> B.ByteString -> IO ()
recvSMTPS ctx micros code =
  runResourceT $ source $$ sink code
  where source = forever $ liftIO chunk >>= yield
        chunk  = timeout micros $ recvData ctx

-- |
-- Render an email using the RFC 2822 message format.
recvSMTPS ctx micros code =
  runResourceT $ source $$ sink code
  where source = forever $ liftIO chunk >>= yield
        chunk  = timeout micros $ recvData ctx

-- |
-- Render an email using the RFC 2822 message format.