From c345f9daa28e0c174b35413addf78df0a793f8c1 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sat, 1 Aug 2015 00:31:36 +0200
Subject: Adding error feedbacks when adding a payment

---
 src/client/Model/View/PaymentView.elm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'src/client/Model/View/PaymentView.elm')

diff --git a/src/client/Model/View/PaymentView.elm b/src/client/Model/View/PaymentView.elm
index 8de005d..07bd2ec 100644
--- a/src/client/Model/View/PaymentView.elm
+++ b/src/client/Model/View/PaymentView.elm
@@ -4,18 +4,17 @@ module Model.View.PaymentView
   ) where
 
 import Model.Payment exposing (Payments)
+import Model.View.Payment.Add exposing (..)
 
 type alias PaymentView =
   { userName : String
-  , name : String
-  , cost : String
+  , add : AddPayment
   , payments : Payments
   }
 
 initPaymentView : String -> Payments -> PaymentView
 initPaymentView userName payments =
   { userName = userName
-  , name = ""
-  , cost = ""
+  , add = initAddPayment
   , payments = payments
   }
-- 
cgit v1.2.3