From d879bd17cd338e2b44794d67962bb16f0b9ddae9 Mon Sep 17 00:00:00 2001
From: Richard Feldman <richard.t.feldman@gmail.com>
Date: Sun, 5 Aug 2018 15:39:31 -0400
Subject: [PATCH] Fix part4 example

---
 advanced/part4/src/Article/Feed.elm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/advanced/part4/src/Article/Feed.elm b/advanced/part4/src/Article/Feed.elm
index 4ccca1d..41b5614 100644
--- 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"