diff options
Diffstat (limited to 'src/client/Model/View/LoggedView.elm')
-rw-r--r-- | src/client/Model/View/LoggedView.elm | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/src/client/Model/View/LoggedView.elm b/src/client/Model/View/LoggedView.elm new file mode 100644 index 0000000..35fd9e5 --- /dev/null +++ b/src/client/Model/View/LoggedView.elm @@ -0,0 +1,33 @@ +module Model.View.LoggedView + ( LoggedView + , initLoggedView + ) 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 LoggedView = + { users : Users + , me : UserId + , add : AddPayment + , payments : Payments + , paymentsCount : Int + , payers : Payers + , edition : Maybe Edition + , currentPage : Int + } + +initLoggedView : Users -> UserId -> Payments -> Int -> Payers -> LoggedView +initLoggedView users me payments paymentsCount payers = + { users = users + , me = me + , add = initAddPayment + , payments = payments + , paymentsCount = paymentsCount + , payers = payers + , edition = Nothing + , currentPage = 1 + } |