From 2a53fe50c62d4b7aec0f422998c743f68aa523c1 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Tue, 21 Jul 2015 23:25:58 +0200
Subject: Adding the payment without reloading the page

---
 src/client/Model/Message.elm          |  8 ++++++++
 src/client/Model/View/PaymentView.elm | 10 ++++++----
 2 files changed, 14 insertions(+), 4 deletions(-)
 create mode 100644 src/client/Model/Message.elm

(limited to 'src/client/Model')

diff --git a/src/client/Model/Message.elm b/src/client/Model/Message.elm
new file mode 100644
index 0000000..9f21fd3
--- /dev/null
+++ b/src/client/Model/Message.elm
@@ -0,0 +1,8 @@
+module Model.Message
+  ( messageDecoder
+  ) where
+
+import Json.Decode exposing (..)
+
+messageDecoder : Decoder String
+messageDecoder = ("message" := string)
diff --git a/src/client/Model/View/PaymentView.elm b/src/client/Model/View/PaymentView.elm
index cea7d2e..8de005d 100644
--- a/src/client/Model/View/PaymentView.elm
+++ b/src/client/Model/View/PaymentView.elm
@@ -6,14 +6,16 @@ module Model.View.PaymentView
 import Model.Payment exposing (Payments)
 
 type alias PaymentView =
-  { name : String
+  { userName : String
+  , name : String
   , cost : String
   , payments : Payments
   }
 
-initPaymentView : Payments -> PaymentView
-initPaymentView payments =
-  { name = ""
+initPaymentView : String -> Payments -> PaymentView
+initPaymentView userName payments =
+  { userName = userName
+  , name = ""
   , cost = ""
   , payments = payments
   }
-- 
cgit v1.2.3