git.iko.soy/distributed-process
on master help sign in
Switch to monad-control>=0.4.
61e952aMathieu Boespflug
distributed-process.cabal+1−1
compare with master
unifiedsplit
@@ -56,7 +56,7 @@ Library
56 rank1dynamic >= 0.1 && < 0.4,
56 rank1dynamic >= 0.1 && < 0.4,
57 syb >= 0.3 && < 0.7,
57 syb >= 0.3 && < 0.7,
58 transformers-base >= 0.3 && < 0.5,
58 transformers-base >= 0.3 && < 0.5,
59− monad-control >= 0.3 && < 0.4
59+ monad-control >= 0.4
60 Exposed-modules: Control.Distributed.Process,
60 Exposed-modules: Control.Distributed.Process,
61 Control.Distributed.Process.Closure,
61 Control.Distributed.Process.Closure,
62 Control.Distributed.Process.Debug,
62 Control.Distributed.Process.Debug,
src/Control/Distributed/Process/Internal/Types.hs+4−2
@@ -359,9 +359,11 @@ newtype Process a = Process {
359instance MonadBase IO Process where
359instance MonadBase IO Process where
360 liftBase = liftIO
360 liftBase = liftIO
361
361
362+newtype StMProcess a = StMProcess { unStMProcess :: StM (ReaderT LocalProcess IO) a }
363+
364+
362instance MonadBaseControl IO Process where
365instance MonadBaseControl IO Process where
363− newtype StM Process a =
366+ type StM Process a = StMProcess a
364− StMProcess { unStMProcess :: StM (ReaderT LocalProcess IO) a }
365
367
366 liftBaseWith f = Process $ liftBaseWith $ \run ->
368 liftBaseWith f = Process $ liftBaseWith $ \run ->
367 f $ fmap StMProcess . run . unProcess
369 f $ fmap StMProcess . run . unProcess