@@ -4,17 +4,17 @@ import System.Concurrency.Process
44
55ping : ProcID String -> ProcID String -> Process String ()
66ping main proc
7− = do lift (usleep 1000)
7+ = do Lift (usleep 1000)
88 send proc "Hello!"
9− lift (putStrLn "Sent ping")
9+ Lift (putStrLn "Sent ping")
1010 msg <- recv
11− lift (putStrLn ("Reply: " ++ show msg))
11+ Lift (putStrLn ("Reply: " ++ show msg))
1212 send main "Done"
1313
1414pong : Process String ()
15−pong = do -- lift (putStrLn "Waiting for message")
15+pong = do -- Lift (putStrLn "Waiting for message")
1616 (sender, m) <- recvWithSender
17− lift $ putStrLn ("Received " ++ m)
17+ Lift $ putStrLn ("Received " ++ m)
1818 send sender ("Hello back!")
1919
2020mainProc : Process String ()