fixup! Avoid racy blocking behavior in closeLocalNode.

haskell-distributed · Oct 18, 2015 · bd28fbf · bd28fbf
1 parent 537e06d
commit bd28fbf
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Control/Distributed/Process/Node.hs b/src/Control/Distributed/Process/Node.hs
@@ -53,7 +53,7 @@ import Data.Maybe (isJust, fromJust, isNothing, catMaybes)
 import Data.Typeable (Typeable)
 import Control.Category ((>>>))
 import Control.Applicative (Applicative, (<$>))
-import Control.Monad (void, when)
+import Control.Monad (void, when, join)
 import Control.Monad.IO.Class (MonadIO, liftIO)
 import Control.Monad.State.Strict (MonadState, StateT, evalStateT, gets)
 import qualified Control.Monad.State.Strict as StateT (get, put)
@@ -78,6 +78,7 @@ import Control.Distributed.Process.Internal.StrictMVar
   , withMVar
   , modifyMVarMasked
   , modifyMVar_
+  , modifyMVar
   , newEmptyMVar
   , putMVar
   , takeMVar