aboutsummaryrefslogtreecommitdiff
path: root/src/client/Model/View
diff options
context:
space:
mode:
authorJoris2015-09-06 16:46:59 +0200
committerJoris2015-09-06 16:46:59 +0200
commit3853811450d4fe801da996eb48825049c3541030 (patch)
treeb483c6152f55b6fe87d23108d2d0346a593e51ac /src/client/Model/View
parent0b6f0fa29075178b45cb17d2932003ab4b342280 (diff)
Renaming PaymentView to LoggedInView
Diffstat (limited to 'src/client/Model/View')
-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
4 files changed, 12 insertions, 12 deletions
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