git.iko.soy/distributed-process
on master help sign in
fixup! Avoid racy blocking behavior in closeLocalNode.
commitbd28fbf37c25fb0783a411efe6c7b5d8a2d72645 authorAlexander Vershilov <alexander.vershilov@gmail.com> dateSun 18 Oct 2015, 22:30 (11 years ago) parent537e06d
1 file changed+2−1
src/Control/Distributed/Process/Node.hs+2−1
src/Control/Distributed/Process/Node.hs+2−1
@@ -53,7 +53,7 @@ import Data.Maybe (isJust, fromJust, isNothing, catMaybes)
5353import Data.Typeable (Typeable)
5454import Control.Category ((>>>))
5555import Control.Applicative (Applicative, (<$>))
56−import Control.Monad (void, when)
56+import Control.Monad (void, when, join)
5757import Control.Monad.IO.Class (MonadIO, liftIO)
5858import Control.Monad.State.Strict (MonadState, StateT, evalStateT, gets)
5959import qualified Control.Monad.State.Strict as StateT (get, put)
@@ -78,6 +78,7 @@ import Control.Distributed.Process.Internal.StrictMVar
7878 , withMVar
7979 , modifyMVarMasked
8080 , modifyMVar_
81+ , modifyMVar
8182 , newEmptyMVar
8283 , putMVar
8384 , takeMVar