git.iko.soy/distributed-process
on master help sign in
Don't be pedantic about invalid local node state in modifyValidLocalState_.
commit14bf51e7cd2c979ecef393df66f8df8c65c7680e authorMathieu Boespflug <m@tweag.io> dateSun 8 Mar 2015, 22:39 (12 years ago) parent2957cba
2 files changed+2−2
compare with master
unifiedsplit
src/Control/Distributed/Process/Internal/Types.hs+1−1 src/Control/Distributed/Process/Node.hs+1−1
src/Control/Distributed/Process/Internal/Types.hs+1−1
@@ -293,7 +293,7 @@ modifyValidLocalState_ :: LocalNode
293293 -> IO ()
294294modifyValidLocalState_ node f = modifyMVar_ (localState node) $ \st -> case st of
295295 LocalNodeValid vst -> LocalNodeValid <$> f vst
296− LocalNodeClosed -> throwIO $ userError $ "Node closed " ++ show (localNodeId node)
296+ LocalNodeClosed -> return LocalNodeClosed
297297
298298-- | Processes running on our local node
299299data LocalProcess = LocalProcess
src/Control/Distributed/Process/Node.hs+1−1
@@ -414,7 +414,7 @@ forkProcess node proc =
414414 $ vst
415415 , pid
416416 )
417− startProcess LocalNodeClosed = throwIO $ userError "LocalNode closed"
417+ startProcess LocalNodeClosed = throwIO $ userError $ "Node closed " ++ show (localNodeId node)
418418
419419 cleanupProcess :: ProcessId -> ValidLocalNodeState -> IO ValidLocalNodeState
420420 cleanupProcess pid vst = do