git.iko.soy/distributed-process
on ryan help sign in
distributed-process/doc/tutorial/tutorial-client.hs
24 lines 776 B history raw
1import Network.Transport
2import Network.Transport.TCP (createTransport, defaultTCPParameters)
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 defaultTCPParameters
11 Right endpoint <- newEndPoint transport
13 let addr = EndPointAddress (pack serverAddr)
14-- Right conn <- connect endpoint addr ReliableOrdered defaultConnectHints
15 x <- connect endpoint addr ReliableOrdered defaultConnectHints
16 let conn = case x of
17 Right conn -> conn
18 Left err -> error$ "Error connecting: "++show err
19 send conn [pack "Hello world"]
20 close conn
22 replicateM_ 3 $ receive endpoint >>= print
24 closeTransport transport