Renaming PaymentView to LoggedView

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
+  }