From e98879d01b3b427a161d70535a30b2f848400607 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Fri, 14 Aug 2015 08:28:20 +0200
Subject: Adding an edition model for the payment view

---
 src/client/Model/View/Payment/Edition.elm | 5 +++++
 src/client/Model/View/PaymentView.elm     | 3 +++
 2 files changed, 8 insertions(+)
 create mode 100644 src/client/Model/View/Payment/Edition.elm

(limited to 'src/client/Model')

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
   }
-- 
cgit v1.2.3