From d3b51ea8ea3b5ceba48cc3ab2f25452de252ca8f Mon Sep 17 00:00:00 2001
From: Folkert <folkert@folkertdev.nl>
Date: Sat, 22 Jan 2022 15:09:28 +0100
Subject: [PATCH] make echo example work (with loop, not yet with forever)

---
 examples/cli/echo.roc | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/examples/cli/echo.roc b/examples/cli/echo.roc
index f50456060f..d49e49a462 100644
--- a/examples/cli/echo.roc
+++ b/examples/cli/echo.roc
@@ -3,11 +3,13 @@ app "echo"
     imports [ pf.Stdin, pf.Stdout, pf.Task ]
     provides [ main ] to pf
 
-main : Task.Task {} *
+main : Task.Task {} []
 main = 
     _ <- Task.await (Stdout.line "Shout into this cave and hear the echo!")
-    Task.forever tick
+    Task.loop {} (\{} -> Task.map tick Step)
+    # Task.forever tick # still does not work; loops for a while, then stack overflows for me
 
+tick : Task.Task {} []
 tick =
     shout <- Task.await Stdin.line
     Stdout.line shout