From cc6a51b5ca03ee1a3b5de7c32dd1324e1053f42a Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 5 Sep 2015 14:14:25 +0200
Subject: Renaming PaymentView to LoggedView

---
 src/client/Model/View.elm             |  4 ++--
 src/client/Model/View/LoggedView.elm  | 33 +++++++++++++++++++++++++++++++++
 src/client/Model/View/PaymentView.elm | 33 ---------------------------------
 3 files changed, 35 insertions(+), 35 deletions(-)
 create mode 100644 src/client/Model/View/LoggedView.elm
 delete mode 100644 src/client/Model/View/PaymentView.elm

(limited to 'src/client/Model')

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/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
+  }
diff --git a/src/client/Model/View/PaymentView.elm b/src/client/Model/View/PaymentView.elm
deleted file mode 100644
index 93ab457..0000000
--- a/src/client/Model/View/PaymentView.elm
+++ /dev/null
@@ -1,33 +0,0 @@
-module Model.View.PaymentView
-  ( PaymentView
-  , initPaymentView
-  ) 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 PaymentView =
-  { users : Users
-  , me : UserId
-  , add : AddPayment
-  , payments : Payments
-  , paymentsCount : Int
-  , payers : Payers
-  , edition : Maybe Edition
-  , currentPage : Int
-  }
-
-initPaymentView : Users -> UserId -> Payments -> Int -> Payers -> PaymentView
-initPaymentView users me payments paymentsCount payers =
-  { users = users
-  , me = me
-  , add = initAddPayment
-  , payments = payments
-  , paymentsCount = paymentsCount
-  , payers = payers
-  , edition = Nothing
-  , currentPage = 1
-  }
-- 
cgit v1.2.3