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/Main.elm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/client/Main.elm')

diff --git a/src/client/Main.elm b/src/client/Main.elm
index 6ca2743..685d3b2 100644
--- a/src/client/Main.elm
+++ b/src/client/Main.elm
@@ -12,7 +12,7 @@ import Time exposing (..)
 import Json.Decode as Json exposing ((:=))
 
 import Model exposing (Model, initialModel)
-import Model.Payment exposing (Payments, paymentsDecoder)
+import Model.Payment exposing (Payments, paymentsDecoder, perPage)
 import Model.Payers exposing (Payers, payersDecoder)
 import Model.Message exposing (messageDecoder)
 import Model.Translations exposing (..)
@@ -64,7 +64,7 @@ getUserName : Task Http.Error String
 getUserName = Http.get messageDecoder "/userName"
 
 getPayments : Task Http.Error Payments
-getPayments = Http.get paymentsDecoder "/payments"
+getPayments = Http.get paymentsDecoder ("/payments?page=1&perPage=" ++ toString perPage)
 
 getPaymentsCount : Task Http.Error Int
 getPaymentsCount = Http.get ("number" := Json.int) "/payments/count"
-- 
cgit v1.2.3