Adding paging (need some fixes)

1 files changed, 6 insertions, 0 deletions

diff --git a/src/client/Update/Payment.elm b/src/client/Update/Payment.elm
index 53dc08a..798cdb4 100644
--- a/src/client/Update/Payment.elm
+++ b/src/client/Update/Payment.elm
@@ -20,6 +20,7 @@ type PaymentAction =
   | AddPayment PaymentId String Int
   | ToggleEdit PaymentId
   | Remove PaymentId
+  | UpdatePage Int Payments
 
 updatePayment : Model -> PaymentAction -> PaymentView -> PaymentView
 updatePayment model action paymentView =
@@ -51,3 +52,8 @@ updatePayment model action paymentView =
           }
         Nothing ->
           paymentView
+    UpdatePage page payments ->
+      { paymentView
+      | currentPage <- page
+      , payments <- payments
+      }