pipes.hs

-- NOTE: I'm using pipes 4.0 here.

module Main where

import Pipes
import qualified Pipes.Prelude as P

main = runEffect $ server >-> client

server :: () -> Server String String IO ()
server = do
  s <- request ()
  respond s

client :: () -> Server String String IO ()
client = do
  respond "HI"
  s <- request ()
  putStrLn $ "Sent and recieved: \"" ++ s ++ "\""