ca688dd · distributed-process

312-- >

313-- > import System.Environment (getArgs)

314-- > import Data.Binary (encode, decode)

315−-- > import Control.Monad (forever)

315+-- > import Control.Monad (void, forever)

316-- > import Control.Monad.IO.Class (liftIO)

317-- > import Control.Exception (try, IOException)

318-- > import Control.Distributed.Process

386-- > -- The same binary can behave as the client or the server,

387-- > -- depending on the command line arguments

388-- > case cmd of

389−-- > "server" -> spawnOnVM backend vm port ($(mkClosure 'pingServer) ())

389+-- > "server" -> void $ spawnOnVM backend vm port ($(mkClosure 'pingServer) ())

390-- > "client" -> callOnVM backend vm port $

391-- > ProcessPair ($(mkClosure 'pingClientRemote) ())

392-- > pingClientLocal