ca688dd · distributed-process

git.iko.soy/distributed-process

Update example with changed API

commitca688ddab39a567d1c51943b04c1feaad83f295a authorEdsko de Vries <edsko@edsko.net> dateMon 5 Nov 2012, 14:31 (14 years ago) parent1da4711

1 file changed+2−2

unifiedsplit

distributed-process-azure/src/Control/Distributed/Process/Backend/Azure.hs+2−2

@@ -312,7 +312,7 @@

312312-- >

313313-- > import System.Environment (getArgs)

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

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

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

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

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

318318-- > import Control.Distributed.Process

@@ -386,7 +386,7 @@

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

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

388388-- > case cmd of

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

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

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

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

392392-- > pingClientLocal