From acea5cefa0964a5062985637161d1fd41511bc78 Mon Sep 17 00:00:00 2001 From: Richard Feldman Date: Tue, 14 Aug 2018 02:39:33 -0400 Subject: [PATCH] Solution for intro/part8 --- intro/part8/src/Page/Register.elm | 25 ++----------------------- 1 file changed, 2 insertions(+), 23 deletions(-) diff --git a/intro/part8/src/Page/Register.elm b/intro/part8/src/Page/Register.elm index 07cb8ae..26e9664 100644 --- a/intro/part8/src/Page/Register.elm +++ b/intro/part8/src/Page/Register.elm @@ -155,34 +155,13 @@ update msg model = responseDecoder = Decode.field "user" Viewer.decoder - {- 👉 TODO: Create a Http.Request value that represents - a POST request to "/api/users" - - 💡 HINT 1: Documentation for `Http.post` is here: - - http://package.elm-lang.org/packages/elm-lang/http/1.0.0/Http#post - - 💡 HINT 2: Look at the values defined above in this - let-expression. What are their types? What are the types the - `Http.post` function is looking for? - -} request : Http.Request Viewer request = - Debug.todo "Call Http.post to represent a POST to /api/users/login" + Http.post "/api/users" requestBody responseDecoder - {- 👉 TODO: Use Http.send to turn the request we just defined - into a Cmd for `update` to execute. - - 💡 HINT 1: Documentation for `Http.send` is here: - - http://package.elm-lang.org/packages/elm-lang/http/1.0.0/Http#send - - 💡 HINT 2: The `CompletedRegister` variant defined in `type Msg` - will be useful here! - -} cmd : Cmd Msg cmd = - Cmd.none + Http.send CompletedRegister request in ( { model | problems = [] }, cmd )