From edbbcacb7c86d0e6072eab34788849bdcfcea9ff Mon Sep 17 00:00:00 2001 From: Richard Feldman Date: Sat, 5 May 2018 08:38:14 -0400 Subject: [PATCH] Make yourFeed the default --- finished/src/Page/Home.elm | 2 +- part10/src/Page/Home.elm | 2 +- part5/src/Page/Home.elm | 2 +- part6/src/Page/Home.elm | 2 +- part7/README.md | 2 +- part8/src/Page/Home.elm | 2 +- part8/src/Page/Profile.elm | 49 ++++++++++++++++++-------------------- 7 files changed, 29 insertions(+), 32 deletions(-) diff --git a/finished/src/Page/Home.elm b/finished/src/Page/Home.elm index ffc4995..3e81553 100644 --- a/finished/src/Page/Home.elm +++ b/finished/src/Page/Home.elm @@ -33,7 +33,7 @@ init session = if session.user == Nothing then SelectList.singleton globalFeed else - SelectList.fromLists [] yourFeed [ globalFeed ] + SelectList.fromLists [] globalFeed [ yourFeed ] loadTags = Request.Article.tags diff --git a/part10/src/Page/Home.elm b/part10/src/Page/Home.elm index ffc4995..3e81553 100644 --- a/part10/src/Page/Home.elm +++ b/part10/src/Page/Home.elm @@ -33,7 +33,7 @@ init session = if session.user == Nothing then SelectList.singleton globalFeed else - SelectList.fromLists [] yourFeed [ globalFeed ] + SelectList.fromLists [] globalFeed [ yourFeed ] loadTags = Request.Article.tags diff --git a/part5/src/Page/Home.elm b/part5/src/Page/Home.elm index ffc4995..3e81553 100644 --- a/part5/src/Page/Home.elm +++ b/part5/src/Page/Home.elm @@ -33,7 +33,7 @@ init session = if session.user == Nothing then SelectList.singleton globalFeed else - SelectList.fromLists [] yourFeed [ globalFeed ] + SelectList.fromLists [] globalFeed [ yourFeed ] loadTags = Request.Article.tags diff --git a/part6/src/Page/Home.elm b/part6/src/Page/Home.elm index ffc4995..3e81553 100644 --- a/part6/src/Page/Home.elm +++ b/part6/src/Page/Home.elm @@ -33,7 +33,7 @@ init session = if session.user == Nothing then SelectList.singleton globalFeed else - SelectList.fromLists [] yourFeed [ globalFeed ] + SelectList.fromLists [] globalFeed [ yourFeed ] loadTags = Request.Article.tags diff --git a/part7/README.md b/part7/README.md index 60c1807..5a6188f 100644 --- a/part7/README.md +++ b/part7/README.md @@ -10,5 +10,5 @@ Then open [http://localhost:3000](http://localhost:3000) in your browser. ## Exercise -Open `src/Page/Article/Editor.elm` in your editor and resolve the TODOs there. +Open `src/Data/Article/Feed.elm` in your editor and resolve the TODOs there. diff --git a/part8/src/Page/Home.elm b/part8/src/Page/Home.elm index ffc4995..3e81553 100644 --- a/part8/src/Page/Home.elm +++ b/part8/src/Page/Home.elm @@ -33,7 +33,7 @@ init session = if session.user == Nothing then SelectList.singleton globalFeed else - SelectList.fromLists [] yourFeed [ globalFeed ] + SelectList.fromLists [] globalFeed [ yourFeed ] loadTags = Request.Article.tags diff --git a/part8/src/Page/Profile.elm b/part8/src/Page/Profile.elm index aa3d809..62bafe5 100644 --- a/part8/src/Page/Profile.elm +++ b/part8/src/Page/Profile.elm @@ -134,34 +134,31 @@ 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 - -- + {- + TODO + 1) head over to the src/Request/Profile.elm and look up + what arguments the `toggleFollow` function takes. + + 2) call `Request.Profile.toggleFollow` here, + to get back a `Http.Request`. + + 3) pass that `Http.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 src/Data/Profile.elm module!] + + FollowCompleted : Result Http.Error Profile -> Msg + -} cmd : Cmd Msg cmd = - Request.Profile.toggleFollow - profile.username - profile.following - user.token - |> Http.send FollowCompleted + Cmd.none in ( model, cmd )