diff options
Diffstat (limited to 'src/client/LoggedIn/Home/View')
| -rw-r--r-- | src/client/LoggedIn/Home/View/Table.elm | 7 |
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" ] |