git.iko.soy/distributed-process
on master help sign in
Part of the memory leak can be avoided in usercode
ad71b62Edsko de Vries
distributed-process/benchmarks/Channels.hs+2
@@ -12,6 +12,8 @@ pingServer :: Process ()
12pingServer = forever $ do
12pingServer = forever $ do
13 them <- expect
13 them <- expect
14 sendChan them ()
14 sendChan them ()
15+ -- TODO: should this be automatic?
16+ reconnectPort them
15
17
16pingClient :: Int -> ProcessId -> Process ()
18pingClient :: Int -> ProcessId -> Process ()
17pingClient n them = do
19pingClient n them = do