Hello there, I'm trying to build a server for testing the conduit and network-conduit packages. As a contrived example the goal is to pick the first three lines from the client and send them back without the line feeds. After that, I'd like to switch to a simple echo server. This is the code:
module Main where
import Data.Conduit
import Data.Conduit.Binary as Cb
import Data.Conduit.List as Cl
import Data.Conduit.Network
handleClient :: Application
handleClient src snk =
src $$ do
(Cb.lines =$= Cl.isolate 3) =$ snk
snk
main :: IO ()
main = runTCPServer (ServerSettings 4000 Nothing) handleClient
I'm not sure whether it is correct to use the 'snk' sink multiple times,
and intuitively I'd say that this is wrong. What would be the proper
way to do this?
Greets,
Ertugrul
--
nightmare = unsafePerformIO (getWrongWife >>= sex)
http://ertes.de/
signature.asc
Description: PGP signature
_______________________________________________ Haskell-Cafe mailing list [email protected] http://www.haskell.org/mailman/listinfo/haskell-cafe
