Update advanced/part5

This commit is contained in:
Richard Feldman
2018-08-14 03:11:00 -04:00
parent 48e2838bd4
commit 6cb0a2093a
2 changed files with 1 additions and 7 deletions

View File

@@ -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 ]

View File

@@ -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) ]
]
]
]