From ed4c7a0a410bca5492b8d079fe5d96b55209f458 Mon Sep 17 00:00:00 2001
From: Valentin Reis <valentin.reis@gmail.com>
Date: Thu, 14 Feb 2019 11:19:35 -0600
Subject: [PATCH] nrm socket cleaning update

---
 share/openmc/settings.xml | 4 ++--
 src/Argo/Stack.hs         | 5 +++--
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/share/openmc/settings.xml b/share/openmc/settings.xml
index af20a40..f7def98 100644
--- a/share/openmc/settings.xml
+++ b/share/openmc/settings.xml
@@ -2,8 +2,8 @@
 <settings>
   <run_mode>eigenvalue</run_mode>
   <particles>100</particles>
-  <batches>300</batches>
-  <inactive>100</inactive>
+  <batches>10</batches>
+  <inactive>2</inactive>
   <source strength="1.0">
     <space type="fission">
       <parameters>-10.751819999999999 -10.751819999999999 36.007 10.751819999999999 10.751819999999999 236.0066</parameters>
diff --git a/src/Argo/Stack.hs b/src/Argo/Stack.hs
index 60a3ec6..da67857 100644
--- a/src/Argo/Stack.hs
+++ b/src/Argo/Stack.hs
@@ -27,12 +27,12 @@ import           Control.Foldl                 as Fold
 import           Text.Show.Pretty
 import           System.Environment
 
-cleanLeftovers :: WorkingDirectory -> Shell ()
+cleanLeftovers :: WorkingDirectory -> Shell () --TODO
 cleanLeftovers (WorkingDirectory wd) = do
   printInfo "Cleaning working(output) directory."
   cleanLog wd
   printInfo "Cleaning sockets."
-  CM.mapM_ cleanSocket ["/tmp/nrm-downstream-in", "/tmp/nrm-upstream-in"]
+  CM.mapM_ cleanSocket ["/tmp/nrm-downstream-in", "/tmp/nrm-upstream-in", "/tmp/nrm-downstream-event"]
 
 checkFsAttributes :: FilePath -> Shell ()
 checkFsAttributes workingDirectory = do
@@ -193,6 +193,7 @@ runStack sa@StackArgs {..} = do
   CM.mapM_
     cleanSocket
     [ "/tmp/nrm-downstream-in"
+    , "/tmp/nrm-downstream-event"
     , "/tmp/nrm-upstream-in"
     , "/tmp/nrm-upstream-event"
     ]
-- 
2.26.2