mirror of
https://github.com/roc-lang/roc.git
synced 2025-09-28 06:14:46 +00:00
26 lines
695 B
Text
26 lines
695 B
Text
app "http-get"
|
|
packages { pf: "cli-platform/main.roc" }
|
|
imports [pf.Http, pf.Task, pf.Stdin, pf.Stdout]
|
|
provides [main] to pf
|
|
|
|
main : Task.Task {} [] [Read [Stdin], Write [Stdout], Network [Http]]
|
|
main =
|
|
_ <- Task.await (Stdout.line "Please enter a URL to fetch")
|
|
|
|
url <- Task.await Stdin.line
|
|
|
|
request = {
|
|
method: Get,
|
|
headers: [],
|
|
url,
|
|
body: Http.emptyBody,
|
|
timeout: NoTimeout,
|
|
progressTracking: NoProgressTracking,
|
|
allowCookiesFromOtherDomains: False,
|
|
}
|
|
|
|
output <- Http.send request
|
|
|> Task.onFail (\err -> err |> Http.errorToString |> Task.succeed)
|
|
|> Task.await
|
|
|
|
Stdout.line output
|