@@ -109,6 +109,8 @@ newLocalNode trans = do
109 ndTransport = trans
109 ndTransport = trans
112+-- | `runProcess` executes a process on a given node, and waits for the process
113+-- to finish before returning.
112runProcess :: LocalNode -> Process () -> IO ()
114runProcess :: LocalNode -> Process () -> IO ()
113runProcess node proc = do
115runProcess node proc = do
114 waitVar <- newEmptyMVar
116 waitVar <- newEmptyMVar