Terminate the slaves when the master terminates

c97ed9e6 · Aggelos Giantsios · 0c21388a · c97ed9e6
Commit c97ed9e6 authored Dec 05, 2014 by Aggelos Giantsios
Show whitespace changes
Inline Side-by-side

Showing with 1 addition and 0 deletions

Bench.hs Bench.hs +1 -0

No files found.
--- a/Bench.hs
+++ b/Bench.hs
@@ -101,6 +101,7 @@ main = do
                let bench = select_dist_bench iwp
                liftIO $ print $ "  " ++ show slaves
                res <- bench gnrt n (read w :: Int) slaves
+                SLN.terminateAllSlaves b
                liftIO $ print res
        ["dist", "slave", host, port] -> do
            b <- SLN.initializeBackend host port rtable