feat: add pass, continue util functions

src/Control/Actor.hs

@@ -5,6 +5,8 @@ module Control.Actor
   , module Control.Actor.Core
   , module Control.Actor.Supervision
   , module Control.Actor.Network
+  , pass
+  , continue
   -- Demo
   , pingActor
   , forwardActorWithCell
@@ -25,9 +27,16 @@ import Control.Concurrent.STM
   ( TMVar, TVar
   , atomically, newEmptyTMVarIO, newTVarIO, readTMVar, readTVarIO, writeTQueue, writeTVar
   )
+import Control.Monad ((<=<))
 import Control.Monad.Reader (MonadIO (..))
 import Unsafe.Coerce (unsafeCoerce)
 
+continue :: r -> Actor u r
+continue x = (,) (Just x) <$> state
+
+pass :: Actor u r
+pass = (,) Nothing <$> state
+
 -- Demo
 
 pingActor :: String -> Actor () String
@@ -72,18 +81,12 @@ system = do
 
 -- Network demo
 
-replyWith :: r -> Actor u r
+newNodeActor :: NodeAddr -> Actor () NodeId
-replyWith x = do
+newNodeActor = continue <=< liftRuntime . connect Nothing
-  s <- state
-  return (Just x, s)
-
-pass :: Actor u r
-pass = state >>= (return . (,) Nothing)
-
 
 -- | Actor on node 2: echo — returns whatever it received.
 echoActor :: String -> Actor () String
-echoActor = replyWith
+echoActor = continue
 
 -- | Actor on node 2: printer — side-effects only.
 printerActor :: String -> Actor () ()