Modelize punctual and monthly payment pages

1 files changed, 4 insertions, 3 deletions

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" ]