Skip to content

C
cloud-orbit
Commit c97ed9e6 authored by Aggelos Giantsios's avatar Aggelos Giantsios
Browse files
Options

Terminate the slaves when the master terminates

parent 0c21388a
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 0 deletions
Bench.hs
View file @ c97ed9e6
...@@ -101,6 +101,7 @@ main = do ...@@ -101,6 +101,7 @@ main = do
let bench = select_dist_bench iwp let bench = select_dist_bench iwp
liftIO $ print $ " " ++ show slaves liftIO $ print $ " " ++ show slaves
res <- bench gnrt n (read w :: Int) slaves res <- bench gnrt n (read w :: Int) slaves
SLN.terminateAllSlaves b
liftIO $ print res liftIO $ print res
["dist", "slave", host, port] -> do ["dist", "slave", host, port] -> do
b <- SLN.initializeBackend host port rtable b <- SLN.initializeBackend host port rtable
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment