mirror of
https://github.com/roc-lang/roc.git
synced 2025-10-02 00:01:16 +00:00
14 lines
348 B
Text
14 lines
348 B
Text
app "http-get"
|
|
packages { base: "platform" }
|
|
imports [ base.Task.{ await }, base.Stdout, base.Stdin, base.Http ]
|
|
provides [ main ] to base
|
|
|
|
main : Task.Task {} *
|
|
main =
|
|
{} <- await (Stdout.line "What URL should I get?")
|
|
|
|
url <- await Stdin.line
|
|
|
|
{} <- await (Stdout.line "The contents of \(url) are:")
|
|
|
|
Http.getUtf8 url
|