Update advanced/part5
This commit is contained in:
@@ -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 ]
|
||||
|
||||
@@ -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) ]
|
||||
]
|
||||
]
|
||||
]
|
||||
|
||||
Reference in New Issue
Block a user