@@ -169,8 +169,7 @@ createBareLocalNode endPoint rtable = do
169-- Like 'Control.Monad.forever' but sans space leak
169-- Like 'Control.Monad.forever' but sans space leak
170{-# INLINE forever' #-}
170{-# INLINE forever' #-}
171forever' :: Monad m => m a -> m b
171forever' :: Monad m => m a -> m b
172−-- forever' a = let a' = a >> a' in a'
172+forever' a = let a' = a >> a' in a'
173−forever' a = a >> forever' a
175-- | Start and register the service processes on a node
174-- | Start and register the service processes on a node
176-- (for now, this is only the logger)
175-- (for now, this is only the logger)