Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Whoops, wrong def

  • Loading branch information...
commit afdb3b675d6e6314970ae6f7cfe5d85a86275d34 1 parent e97fb5c
@edsko edsko authored
Showing with 1 addition and 2 deletions.
  1. +1 −2  distributed-process/src/Control/Distributed/Process/Node.hs
View
3  distributed-process/src/Control/Distributed/Process/Node.hs
@@ -169,8 +169,7 @@ createBareLocalNode endPoint rtable = do
-- Like 'Control.Monad.forever' but sans space leak
{-# INLINE forever' #-}
forever' :: Monad m => m a -> m b
--- forever' a = let a' = a >> a' in a'
-forever' a = a >> forever' a
+forever' a = let a' = a >> a' in a'
-- | Start and register the service processes on a node
-- (for now, this is only the logger)
Please sign in to comment.
Something went wrong with that request. Please try again.