diff --git a/examples/interactive/cli-platform/Http.roc b/examples/interactive/cli-platform/Http.roc index eaa7eb6691..fe4933c311 100644 --- a/examples/interactive/cli-platform/Http.roc +++ b/examples/interactive/cli-platform/Http.roc @@ -4,7 +4,7 @@ interface Http emptyBody, bytesBody, stringBody, - jsonBody, + # jsonBody, multiPartBody, stringPart, bytesPart, @@ -16,9 +16,9 @@ interface Http imports [ Effect, InternalTask, - Json, + # Json, Task.{ Task }, - Encode.{ Encoding }, + # Encode.{ Encoding }, HttpTypes.{ Request, Header, TimeoutConfig, TrackerConfig, Part, Body, Response, Metadata, Error }, ] @@ -52,9 +52,9 @@ stringBody : [MimeType Str], Str -> Body stringBody = \mimeType, str -> Body mimeType (Str.toUtf8 str) -jsonBody : a -> Body | a has Encoding -jsonBody = \val -> - Body (MimeType "application/json") (Encode.toBytes val Json.format) +# jsonBody : a -> Body | a has Encoding +# jsonBody = \val -> +# Body (MimeType "application/json") (Encode.toBytes val Json.format) multiPartBody : List Part -> Body multiPartBody = \parts -> diff --git a/examples/interactive/http-get.roc b/examples/interactive/http-get.roc index c2ee4b9dbb..dd21f2806e 100644 --- a/examples/interactive/http-get.roc +++ b/examples/interactive/http-get.roc @@ -1,17 +1,15 @@ app "http-get" packages { pf: "cli-platform/main.roc" } - imports [pf.Http, pf.Task, pf.Stdout] + imports [pf.Http, pf.HttpTypes, pf.Task, pf.Stdout] provides [main] to pf main : Task.Task {} [] [Write [Stdout], Network [Http]] main = - # request : Request - # request = { defaultRequest & url: "https://httpbin.org/get" } + request : HttpTypes.Request + request = { Http.defaultRequest & url: "https://httpbin.org/get" } + + output <- Http.send request + |> Task.onFail (\err -> err |> Http.errorToString |> Task.succeed) + |> Task.await - # result <- Http.send request |> Task.await - # output = - # when result is - # Ok payload -> payload - # Err httpError -> Http.errorToString httpError - output = "Hello" Stdout.line output