diff options
| author | Joris | 2015-09-04 09:52:20 +0200 |
|---|---|---|
| committer | Joris | 2015-09-04 09:52:20 +0200 |
| commit | c1f44a5890fbb26faf6f17c676662ea1bd495f2e (patch) | |
| tree | f158bdef5bd985a9b11d46d12878d566268cf6cc /src/client/Model | |
| parent | 889df8caf04de5f10a9e623bab3e502e9573159d (diff) | |
Adding paging (need some fixes)
Diffstat (limited to 'src/client/Model')
| -rw-r--r-- | src/client/Model/Payment.elm | 6 | ||||
| -rw-r--r-- | src/client/Model/View/PaymentView.elm | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/src/client/Model/Payment.elm b/src/client/Model/Payment.elm index e773be3..02dcf7e 100644 --- a/src/client/Model/Payment.elm +++ b/src/client/Model/Payment.elm @@ -1,5 +1,6 @@ module Model.Payment - ( Payments + ( perPage + , Payments , Payment , PaymentId , PaymentWithId @@ -12,6 +13,9 @@ import Date exposing (..) import Json.Decode as Json exposing ((:=)) import Dict exposing (..) +perPage : Int +perPage = 10 + type alias Payments = Dict PaymentId Payment type alias PaymentWithId = (PaymentId, Payment) diff --git a/src/client/Model/View/PaymentView.elm b/src/client/Model/View/PaymentView.elm index 117be59..bf5804f 100644 --- a/src/client/Model/View/PaymentView.elm +++ b/src/client/Model/View/PaymentView.elm @@ -15,6 +15,7 @@ type alias PaymentView = , paymentsCount : Int , payers : Payers , edition : Maybe Edition + , currentPage : Int } initPaymentView : String -> Payments -> Int -> Payers -> PaymentView @@ -25,4 +26,5 @@ initPaymentView userName payments paymentsCount payers = , paymentsCount = paymentsCount , payers = payers , edition = Nothing + , currentPage = 1 } |