@@ -14,12 +14,8 @@ demo1 = do
14 runProcess node $ do
14 runProcess node $ do
15 liftIO $ print "Starting process"
15 liftIO $ print "Starting process"
16 lpid1 <- spawnLocal (logger 1)
16 lpid1 <- spawnLocal (logger 1)
17−-- liftIO $ print "baz"
18−-- lpid2 <- spawnLocal (logger 2)
19 spawnLocal (chatty "jim1" lpid1)
17 spawnLocal (chatty "jim1" lpid1)
20−-- spawnLocal (chatty "jim2" lpid2)
21 spawnLocal (chatty "bob1" lpid1)
18 spawnLocal (chatty "bob1" lpid1)
22−-- spawnLocal (chatty "bob2" lpid2)
23 liftIO $ threadDelay 500000
19 liftIO $ threadDelay 500000