From f6bef58e3d1a8e9d6977a2996ef5a0030b3a88cf Mon Sep 17 00:00:00 2001 From: Richard Feldman Date: Sat, 5 May 2018 04:54:28 -0400 Subject: [PATCH] Fix finished Profile page --- finished/src/Page/Profile.elm | 37 ++++++----------------------------- 1 file changed, 6 insertions(+), 31 deletions(-) diff --git a/finished/src/Page/Profile.elm b/finished/src/Page/Profile.elm index aa3d809..c3c81e4 100644 --- a/finished/src/Page/Profile.elm +++ b/finished/src/Page/Profile.elm @@ -133,37 +133,12 @@ update session msg model = ) Just user -> - let - -- TODO - -- 1) head over to the Request.Profile module and look up - -- what arguments the `toggleFollow` function takes. - -- - -- 2) call Request.Profile.toggleFollow here, - -- to get back a Request. - -- - -- 3) pass that Request to Http.send to get a Cmd. - -- Use that Cmd here. - -- - -- Here's the documentation for Http.send: - -- http://package.elm-lang.org/packages/elm-lang/http/1.0.0/Http#send - -- - -- Here are some hepful values that are in scope: - -- - -- user.token : Maybe AuthToken - -- - -- profile : Profile [look in the Data.Profile module!] - -- - -- FollowCompleted : Result Http.Error Profile -> Msg - -- - cmd : Cmd Msg - cmd = - Request.Profile.toggleFollow - profile.username - profile.following - user.token - |> Http.send FollowCompleted - in - ( model, cmd ) + user.token + |> Request.Profile.toggleFollow + profile.username + profile.following + |> Http.send FollowCompleted + |> pair model FollowCompleted (Ok newProfile) -> ( { model | profile = newProfile }, Cmd.none )