git.iko.soy/distributed-process
on 94336e6 help sign in
distributed-process/doc/tutorial/tutorial-client.hs
20 lines 525 B history raw
1import Network.Transport
2import Network.Transport.TCP (createTransport)
3import System.Environment
4import Control.Monad
5import Data.ByteString.Char8
7main :: IO ()
8main = do
9 [host, port, serverAddr] <- getArgs
10 Right transport <- createTransport host port
11 Right endpoint <- newEndPoint transport
13 let addr = EndPointAddress (pack serverAddr)
14 Right conn <- connect endpoint addr ReliableOrdered
15 send conn [pack "Hello world"]
16 close conn
18 replicateM_ 3 $ receive endpoint >>= print
20 closeTransport transport