From 64ff4707fdcd81c27c6be9903c3c82bc543ef016 Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 27 Mar 2017 10:18:40 +0200
Subject: Modelize punctual and monthly payment pages

---
 src/client/LoggedIn/Home/View/Table.elm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

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

diff --git a/src/client/LoggedIn/Home/View/Table.elm b/src/client/LoggedIn/Home/View/Table.elm
index 8828488..f94bb19 100644
--- a/src/client/LoggedIn/Home/View/Table.elm
+++ b/src/client/LoggedIn/Home/View/Table.elm
@@ -30,15 +30,16 @@ import LoggedIn.View.Format as Format
 import View.Date as Date
 
 import Model.Payment as Payment exposing (..)
+import Model.Frequency exposing (Frequency(..))
 import Model.PaymentCategory as PaymentCategory
 import Model.Translations exposing (getMessage)
 import Model.User exposing (getUserName)
 
-view : LoggedData -> Home.Model -> Payments -> Frequency -> Html Msg
-view loggedData homeModel payments frequency =
+view : LoggedData -> Home.Model -> Payments -> Frequency -> Int -> Html Msg
+view loggedData homeModel payments frequency page =
   let visiblePayments =
         payments
-          |> List.drop ((homeModel.currentPage - 1) * perPage)
+          |> List.drop ((page - 1) * perPage)
           |> List.take perPage
   in  div
         [ class "table" ]
-- 
cgit v1.2.3