@@ -323,6 +323,7 @@ startServiceProcesses node = do
323323-- | Force-close a local node, killing all processes on that node.
324324closeLocalNode :: LocalNode -> IO ()
325325closeLocalNode node = do
326+ modifyMVar_ (localState node) $ const $ return LocalNodeClosed
326327 withValidLocalState (localState node) $ \vst ->
327328 forM_ (vst ^. localProcesses) $ \lproc ->
328329 -- Semantics of 'throwTo' guarantee that target thread will get delivered
@@ -330,7 +331,6 @@ closeLocalNode node = do
330331 -- that's as good as we can do. No need to wait for thread to actually
331332 -- finish dying.
332333 killThread (processThread lproc)
333− modifyMVar_ (localState node) $ const $ return LocalNodeClosed
334334 NT.closeEndPoint (localEndPoint node)
335335
336336-- | Run a process on a local node and wait for it to finish