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