socks-0.6.0: Network/Socks5/Lowlevel.hs

module Network.Socks5.Lowlevel
    ( socksListen
    -- * lowlevel types
    , module Network.Socks5.Wire
    , module Network.Socks5.Command
    ) where

import Network.Socket
import Network.Socks5.Command
import Network.Socks5.Wire
import Network.Socks5.Types

socksListen :: Socket -> IO SocksRequest
socksListen sock = do
    hello <- waitSerialized sock
    case getSocksHelloMethods hello of
        _ -> do sendSerialized sock (SocksHelloResponse SocksMethodNone)
                waitSerialized sock