Re: [Haskell-cafe] network-conduit proxy

9 Mar 2012

      Hello.

I'm not expert but first you should not use Network sockets, because everything
is included into Data.Conduit.Network, just use high level API.
Second, you should use not server inside client but client inside server:

so you can make such a code [1]:

{-# OPTIONS -Wall #-}
import Data.Conduit
import Data.Conduit.Network
import Control.Monad.IO.Class (liftIO)
import Control.Concurrent.Lifted (fork)

main::IO ()
main =
  runTCPServer (ServerSettings 5002 Nothing) $ \clientSrc clientSink -> do
    liftIO $ runTCPClient (ClientSettings 5000 "localhost") $ \serverSrc serverSink -> do
      _ <- liftIO $ fork $ runResourceT $ serverSrc $$ clientSink
      clientSrc $$ serverSink

tested and works

[1] https://gist.github.com/2008113

--
Alexander V Vershilov

Fri, Mar 09, 2012 at 05:44:29PM +0000, grant wrote
...
I am trying to get a proxy working using the network-conduit package on windows.
So I send a request to port 5002 and that gets forwarded to another port 5000 
where I have a simple echo server running.
I made a stab at it, but get intermittent send errors after the first connection
Here is the code:
{-# OPTIONS -Wall #-}
import Data.Conduit
import Data.Conduit.Network
import Network (withSocketsDo)
import Control.Monad.IO.Class (liftIO)
import Control.Monad.Trans.Resource
main::IO ()
main = 
  withSocketsDo $ runTCPClient (ClientSettings 5000 "localhost") $ 
    \src1 sink1 -> do
    liftIO $ print "in tcpclient section"
    liftIO $ withSocketsDo $ runTCPServer (ServerSettings 5002 Nothing) $ 
      \src sink -> do
      liftIO $ print "in tcpserver section"
      _ <- liftIO $ runResourceT $ resourceForkIO $ do
          src1 $$ sink 
          return ()
      src $$ sink1
Thanks for any help,
Grant
_______________________________________________
Haskell-Cafe mailing list
Haskell-Cafe@haskell.org
http://www.haskell.org/mailman/listinfo/haskell-cafe