diff options
| author | Joris | 2015-09-05 13:53:36 +0200 |
|---|---|---|
| committer | Joris | 2015-09-05 13:53:36 +0200 |
| commit | 3b738e0d4cc65f314da7389d4542ec826ba0f454 (patch) | |
| tree | ee99236117ad698974c5a6e40ab170f617cb06f3 /src/client/Model/View | |
| parent | 139d4a103a6a48880e5f12a796033956f223563c (diff) | |
| download | budget-3b738e0d4cc65f314da7389d4542ec826ba0f454.tar.gz budget-3b738e0d4cc65f314da7389d4542ec826ba0f454.tar.bz2 budget-3b738e0d4cc65f314da7389d4542ec826ba0f454.zip | |
Using UserId instead of UserName to indentify users
Diffstat (limited to 'src/client/Model/View')
| -rw-r--r-- | src/client/Model/View/PaymentView.elm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/src/client/Model/View/PaymentView.elm b/src/client/Model/View/PaymentView.elm index bf5804f..93ab457 100644 --- a/src/client/Model/View/PaymentView.elm +++ b/src/client/Model/View/PaymentView.elm @@ -3,13 +3,15 @@ module Model.View.PaymentView , initPaymentView ) where +import Model.User exposing (Users, UserId) import Model.Payment exposing (Payments) import Model.Payers exposing (Payers) import Model.View.Payment.Add exposing (..) import Model.View.Payment.Edition exposing (..) type alias PaymentView = - { userName : String + { users : Users + , me : UserId , add : AddPayment , payments : Payments , paymentsCount : Int @@ -18,9 +20,10 @@ type alias PaymentView = , currentPage : Int } -initPaymentView : String -> Payments -> Int -> Payers -> PaymentView -initPaymentView userName payments paymentsCount payers = - { userName = userName +initPaymentView : Users -> UserId -> Payments -> Int -> Payers -> PaymentView +initPaymentView users me payments paymentsCount payers = + { users = users + , me = me , add = initAddPayment , payments = payments , paymentsCount = paymentsCount |