Adding an edition model for the payment view

2 files changed, 8 insertions, 0 deletions

diff --git a/src/client/Model/View/Payment/Edition.elm b/src/client/Model/View/Payment/Edition.elm
new file mode 100644
index 0000000..a650fa8
--- /dev/null
+++ b/src/client/Model/View/Payment/Edition.elm
@@ -0,0 +1,5 @@
+module Model.View.Payment.Edition
+  ( Edition
+  ) where
+
+type alias Edition = String
diff --git a/src/client/Model/View/PaymentView.elm b/src/client/Model/View/PaymentView.elm
index 07bd2ec..2f2be46 100644
--- a/src/client/Model/View/PaymentView.elm
+++ b/src/client/Model/View/PaymentView.elm
@@ -5,11 +5,13 @@ module Model.View.PaymentView
 
 import Model.Payment exposing (Payments)
 import Model.View.Payment.Add exposing (..)
+import Model.View.Payment.Edition exposing (..)
 
 type alias PaymentView =
   { userName : String
   , add : AddPayment
   , payments : Payments
+  , edition : Maybe Edition
   }
 
 initPaymentView : String -> Payments -> PaymentView
@@ -17,4 +19,5 @@ initPaymentView userName payments =
   { userName = userName
   , add = initAddPayment
   , payments = payments
+  , edition = Nothing
   }