language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-09-26 13:29:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

Merge pull request #4374 from roc-lang/fix-examples

Browse source 
Fix examples that are failing to build
This commit is contained in:
Richard Feldman 2022-10-21 18:20:51 -07:00 • committed by GitHub
commit eeeab8c6d2
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
2 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
examples/cli/echo.roc
View file

@ -6,8 +6,8 @@ app "echo"
main : Program
main = Program.noArgs mainTask
mainTask : List Str -> Task ExitCode [] [Read [Stdin], Write [Stdout]]
mainTask = \_args ->
mainTask : Task ExitCode [] [Read [Stdin], Write [Stdout]]
mainTask =
_ <- Task.await (Stdout.line "🗣 Shout into this cave and hear the echo! 👂👂👂")
Task.loop {} (\_ -> Task.map tick Step)
|> Program.exit 0

10
examples/cli/http-get.roc
View file

@ -1,10 +1,13 @@
app "http-get"
packages { pf: "cli-platform/main.roc" }
imports [pf.Http, pf.Task, pf.Stdin, pf.Stdout]
imports [pf.Http, pf.Task, pf.Stdin, pf.Stdout, pf.Program.{ Program, ExitCode }]
provides [main] to pf
main : List Str -> Task.Task {} [] [Read [Stdin], Write [Stdout], Network [Http]]
main = \_args ->
main : Program
main = Program.noArgs mainTask
mainTask : Task.Task ExitCode [] [Read [Stdin], Write [Stdout], Network [Http]]
mainTask =
_ <- Task.await (Stdout.line "Please enter a URL to fetch")
url <- Task.await Stdin.line
@ -22,3 +25,4 @@ main = \_args ->
|> Task.await
Stdout.line output
|> Program.exit 0