From c1f44a5890fbb26faf6f17c676662ea1bd495f2e Mon Sep 17 00:00:00 2001
From: Joris
Date: Fri, 4 Sep 2015 09:52:20 +0200
Subject: Adding paging (need some fixes)

---
 src/client/Update/Payment.elm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/client/Update/Payment.elm')

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
+      }
-- 
cgit v1.2.3