From 6cb0a2093a9dccebddb6bf1a3e0a4ddb10dd726a Mon Sep 17 00:00:00 2001 From: Richard Feldman Date: Tue, 14 Aug 2018 03:11:00 -0400 Subject: [PATCH] Update advanced/part5 --- advanced/part5/src/Article/Feed.elm | 6 ------ advanced/part5/src/Page/Profile.elm | 2 +- 2 files changed, 1 insertion(+), 7 deletions(-) diff --git a/advanced/part5/src/Article/Feed.elm b/advanced/part5/src/Article/Feed.elm index 5fe6c04..639e6f8 100644 --- a/advanced/part5/src/Article/Feed.elm +++ b/advanced/part5/src/Article/Feed.elm @@ -7,7 +7,6 @@ module Article.Feed , init , update , viewArticles - , viewPagination , viewTabs ) @@ -195,11 +194,6 @@ viewTab attrs ( name, msg ) = ] -viewPagination : (Int -> msg) -> Model -> Html msg -viewPagination toMsg (Model feed) = - PaginatedList.view toMsg feed.articles - - viewTag : String -> Html msg viewTag tagName = li [ class "tag-default tag-pill tag-outline" ] [ text tagName ] diff --git a/advanced/part5/src/Page/Profile.elm b/advanced/part5/src/Page/Profile.elm index 9c7eaca..1c16d43 100644 --- a/advanced/part5/src/Page/Profile.elm +++ b/advanced/part5/src/Page/Profile.elm @@ -218,7 +218,7 @@ view model = [ [ viewTabs model.feedTab ] , Feed.viewArticles model.timeZone feed |> List.map (Html.map GotFeedMsg) - , [ Feed.viewPagination ClickedFeedPage feed ] + , [ viewPagination (Feed.articles feed) ] ] ] ]