git.iko.soy/distributed-process
on master help sign in
Merge pull request #256 from qnikst/fix-compilation-errors

fixup! Avoid racy blocking behavior in closeLocalNode.

commitd2db17b025a738569bc048b91fd47888e468f315 authorAlexander Vershilov <alexander.vershilov@gmail.com> dateSun 18 Oct 2015, 23:27 (11 years ago) parent537e06dbd28fbf
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