Adding the payment without reloading the page

2 files changed, 14 insertions, 4 deletions

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
   }