Fix part4 example

This commit is contained in:
Richard Feldman
2018-08-05 15:39:31 -04:00
parent e374fd8b64
commit d879bd17cd

View File

@@ -143,8 +143,8 @@ viewPaginatedList paginatedList resultsPerPage =
Html.text "" Html.text ""
pageLink : (Int -> msg) -> Int -> Bool -> Html msg pageLink : Int -> Bool -> Html Msg
pageLink toMsg targetPage isActive = pageLink targetPage isActive =
li [ classList [ ( "page-item", True ), ( "active", isActive ) ] ] li [ classList [ ( "page-item", True ), ( "active", isActive ) ] ]
[ a [ a
[ class "page-link" [ class "page-link"