@@ -108,6 +108,7 @@ import Control.Concurrent.STM (STM)
108108import Control.Concurrent.STM.TChan (TChan)
109109import qualified Network.Transport as NT (EndPoint, EndPointAddress, Connection)
110110import Control.Applicative (Applicative, Alternative, (<$>), (<*>))
111+import Control.Monad.Fix (MonadFix)
111112import Control.Monad.Reader (MonadReader(..), ReaderT, runReaderT)
112113import Control.Monad.IO.Class (MonadIO)
113114import Control.Distributed.Process.Serializable
@@ -291,7 +292,7 @@ data LocalProcessState = LocalProcessState
291292newtype Process a = Process {
292293 unProcess :: ReaderT LocalProcess IO a
293294 }
294− deriving (Functor, Monad, MonadIO, MonadReader LocalProcess, Typeable, Applicative)
295+ deriving (Functor, Monad, MonadIO, MonadReader LocalProcess, Typeable, Applicative, MonadFix)
295296
296297--------------------------------------------------------------------------------
297298-- Typed channels --
@@ -762,4 +763,3 @@ typedChannelWithId cid = typedChannels >>> DAC.mapMaybe cid
762763{-# INLINE forever' #-}
763764forever' :: Monad m => m a -> m b
764765forever' a = let a' = a >> a' in a'
765−