aboutsummaryrefslogtreecommitdiff
path: root/src/client/LoggedIn/Home/View
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/LoggedIn/Home/View')
-rw-r--r--src/client/LoggedIn/Home/View/Table.elm7
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" ]