diff options
Diffstat (limited to 'src/client/Model')
| -rw-r--r-- | src/client/Model/View.elm | 4 | ||||
| -rw-r--r-- | src/client/Model/View/LoggedView.elm (renamed from src/client/Model/View/PaymentView.elm) | 12 |
2 files changed, 8 insertions, 8 deletions
diff --git a/src/client/Model/View.elm b/src/client/Model/View.elm index 7befca4..4c5fc6f 100644 --- a/src/client/Model/View.elm +++ b/src/client/Model/View.elm @@ -4,9 +4,9 @@ module Model.View import Model.Payment exposing (Payments) import Model.View.SignInView exposing (..) -import Model.View.PaymentView exposing (..) +import Model.View.LoggedView exposing (..) type View = LoadingView | SignInView SignInView - | PaymentView PaymentView + | LoggedView LoggedView diff --git a/src/client/Model/View/PaymentView.elm b/src/client/Model/View/LoggedView.elm index 93ab457..35fd9e5 100644 --- a/src/client/Model/View/PaymentView.elm +++ b/src/client/Model/View/LoggedView.elm @@ -1,6 +1,6 @@ -module Model.View.PaymentView - ( PaymentView - , initPaymentView +module Model.View.LoggedView + ( LoggedView + , initLoggedView ) where import Model.User exposing (Users, UserId) @@ -9,7 +9,7 @@ import Model.Payers exposing (Payers) import Model.View.Payment.Add exposing (..) import Model.View.Payment.Edition exposing (..) -type alias PaymentView = +type alias LoggedView = { users : Users , me : UserId , add : AddPayment @@ -20,8 +20,8 @@ type alias PaymentView = , currentPage : Int } -initPaymentView : Users -> UserId -> Payments -> Int -> Payers -> PaymentView -initPaymentView users me payments paymentsCount payers = +initLoggedView : Users -> UserId -> Payments -> Int -> Payers -> LoggedView +initLoggedView users me payments paymentsCount payers = { users = users , me = me , add = initAddPayment |