From 18991ec6dd478d6afb7edaf22f44c049bdb082c4 Mon Sep 17 00:00:00 2001 From: Abhiroop Sarkar Date: Fri, 23 Jun 2017 15:51:48 +0530 Subject: [PATCH 1/2] Update 3ch.md --- tutorials/3ch.md | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tutorials/3ch.md b/tutorials/3ch.md index c5b9dc7..c37c71a 100644 --- a/tutorials/3ch.md +++ b/tutorials/3ch.md @@ -63,7 +63,7 @@ demo = do listen = do third <- expect :: Process ProcessId first <- expect :: Process String - second <- expectTimeout 100000 :: Process String + second <- expectTimeout 100000 :: Process (Maybe String) mapM_ (say . show) [first, second, third] send third () {% endhighlight %} From c8d537609ec08cc98287555eec566ee2a2565521 Mon Sep 17 00:00:00 2001 From: Abhiroop Sarkar Date: Fri, 23 Jun 2017 16:22:26 +0530 Subject: [PATCH 2/2] Update 3ch.md --- tutorials/3ch.md | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/tutorials/3ch.md b/tutorials/3ch.md index c37c71a..dd77e67 100644 --- a/tutorials/3ch.md +++ b/tutorials/3ch.md @@ -59,12 +59,15 @@ demo = do send listener "hello" getSelfPid >>= send listener () <- expect + return () where listen = do third <- expect :: Process ProcessId first <- expect :: Process String second <- expectTimeout 100000 :: Process (Maybe String) - mapM_ (say . show) [first, second, third] + (say . show) first + (say . show) second + (say . show) third send third () {% endhighlight %}