From cfca18262c1ff48dcb683ddab7d03cf8e55573ff Mon Sep 17 00:00:00 2001
From: Joris
Date: Fri, 24 Mar 2017 09:21:04 +0000
Subject: Features/categories

---
 src/client/elm/LoggedIn/Home/View.elm | 21 ++++++++++++---------
 1 file changed, 12 insertions(+), 9 deletions(-)

(limited to 'src/client/elm/LoggedIn/Home/View.elm')

diff --git a/src/client/elm/LoggedIn/Home/View.elm b/src/client/elm/LoggedIn/Home/View.elm
index 0def64e..0b90e67 100644
--- a/src/client/elm/LoggedIn/Home/View.elm
+++ b/src/client/elm/LoggedIn/Home/View.elm
@@ -2,23 +2,22 @@ module LoggedIn.Home.View exposing
   ( view
   )
 
+import Date
 import Html exposing (..)
 import Html.Attributes exposing (..)
-import Date
 
 import Form
 import Utils.Form as Form
 
-import Msg exposing (Msg)
-
 import LoggedData exposing (LoggedData)
-import Model.Payment as Payment exposing (Frequency(..))
-
-import LoggedIn.Home.Model as Home
 import LoggedIn.Home.Header.View as Header
-
-import LoggedIn.Home.View.Table as Table
+import LoggedIn.Home.Model as Home
+import LoggedIn.Home.Msg as HomeMsg
 import LoggedIn.Home.View.Paging as Paging
+import LoggedIn.Home.View.Table as Table
+import LoggedIn.Msg as LoggedInMsg
+import Model.Payment as Payment exposing (Frequency(..))
+import Msg exposing (Msg)
 
 view : LoggedData -> Home.Model -> Html Msg
 view loggedData home =
@@ -31,5 +30,9 @@ view loggedData home =
         [ class "home" ]
         [ Header.view loggedData home payments frequency
         , Table.view loggedData home payments frequency
-        , Paging.view home payments
+        , Paging.view
+            home.currentPage
+            (List.length payments)
+            Msg.NoOp
+            (Msg.UpdateLoggedIn << LoggedInMsg.HomeMsg << HomeMsg.UpdatePage)
         ]
-- 
cgit v1.2.3