Fix part4 example

2018-08-05 15:39:31 -04:00
parent e374fd8b64
commit d879bd17cd
1 changed files with 2 additions and 2 deletions
--- a/advanced/part4/src/Article/Feed.elm
+++ b/advanced/part4/src/Article/Feed.elm
@@ -143,8 +143,8 @@ viewPaginatedList paginatedList resultsPerPage =
        Html.text ""


-pageLink : (Int -> msg) -> Int -> Bool -> Html msg
-pageLink toMsg targetPage isActive =
+pageLink : Int -> Bool -> Html Msg
+pageLink targetPage isActive =
    li [ classList [ ( "page-item", True ), ( "active", isActive ) ] ]
        [ a
            [ class "page-link"