diff options
Diffstat (limited to 'src/client/Model')
-rw-r--r-- | src/client/Model/View.elm | 4 | ||||
-rw-r--r-- | src/client/Model/View/LoggedIn/Add.elm (renamed from src/client/Model/View/Payment/Add.elm) | 2 | ||||
-rw-r--r-- | src/client/Model/View/LoggedIn/Edition.elm (renamed from src/client/Model/View/Payment/Edition.elm) | 2 | ||||
-rw-r--r-- | src/client/Model/View/LoggedIn/Monthly.elm (renamed from src/client/Model/View/Payment/Monthly.elm) | 2 | ||||
-rw-r--r-- | src/client/Model/View/LoggedInView.elm (renamed from src/client/Model/View/LoggedView.elm) | 18 |
5 files changed, 14 insertions, 14 deletions
diff --git a/src/client/Model/View.elm b/src/client/Model/View.elm index 4c5fc6f..90c0e53 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.LoggedView exposing (..) +import Model.View.LoggedInView exposing (..) type View = LoadingView | SignInView SignInView - | LoggedView LoggedView + | LoggedInView LoggedInView diff --git a/src/client/Model/View/Payment/Add.elm b/src/client/Model/View/LoggedIn/Add.elm index dc00e86..abd8a4d 100644 --- a/src/client/Model/View/Payment/Add.elm +++ b/src/client/Model/View/LoggedIn/Add.elm @@ -1,4 +1,4 @@ -module Model.View.Payment.Add +module Model.View.LoggedIn.Add ( AddPayment , Frequency(..) , initAddPayment diff --git a/src/client/Model/View/Payment/Edition.elm b/src/client/Model/View/LoggedIn/Edition.elm index f58ce43..da6d7b0 100644 --- a/src/client/Model/View/Payment/Edition.elm +++ b/src/client/Model/View/LoggedIn/Edition.elm @@ -1,4 +1,4 @@ -module Model.View.Payment.Edition +module Model.View.LoggedIn.Edition ( Edition ) where diff --git a/src/client/Model/View/Payment/Monthly.elm b/src/client/Model/View/LoggedIn/Monthly.elm index 15a5f2e..3c6f66a 100644 --- a/src/client/Model/View/Payment/Monthly.elm +++ b/src/client/Model/View/LoggedIn/Monthly.elm @@ -1,4 +1,4 @@ -module Model.View.Payment.Monthly +module Model.View.LoggedIn.Monthly ( Monthly , initMonthly ) where diff --git a/src/client/Model/View/LoggedView.elm b/src/client/Model/View/LoggedInView.elm index 264fdf5..cf7f552 100644 --- a/src/client/Model/View/LoggedView.elm +++ b/src/client/Model/View/LoggedInView.elm @@ -1,16 +1,16 @@ -module Model.View.LoggedView - ( LoggedView - , initLoggedView +module Model.View.LoggedInView + ( LoggedInView + , initLoggedInView ) 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 (..) -import Model.View.Payment.Monthly exposing (..) +import Model.View.LoggedIn.Add exposing (..) +import Model.View.LoggedIn.Edition exposing (..) +import Model.View.LoggedIn.Monthly exposing (..) -type alias LoggedView = +type alias LoggedInView = { users : Users , me : UserId , add : AddPayment @@ -22,8 +22,8 @@ type alias LoggedView = , currentPage : Int } -initLoggedView : Users -> UserId -> Payments -> Payments -> Int -> Payers -> LoggedView -initLoggedView users me monthlyPayments payments paymentsCount payers = +initLoggedInView : Users -> UserId -> Payments -> Payments -> Int -> Payers -> LoggedInView +initLoggedInView users me monthlyPayments payments paymentsCount payers = { users = users , me = me , add = initAddPayment Punctual |