aboutsummaryrefslogtreecommitdiff
path: root/src/client/Model
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/Model')
-rw-r--r--src/client/Model/View.elm4
-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