From 359f837511597354bc6462cfc4200f54d647d728 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Thu, 13 Aug 2015 22:55:41 +0200
Subject: Giving the payment id to the client

---
 src/client/ServerCommunication.elm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/client/ServerCommunication.elm')

diff --git a/src/client/ServerCommunication.elm b/src/client/ServerCommunication.elm
index ccf63f2..b4b547d 100644
--- a/src/client/ServerCommunication.elm
+++ b/src/client/ServerCommunication.elm
@@ -71,7 +71,9 @@ communicationToAction communication response =
         SignIn login ->
           U.UpdateSignIn (ValidLogin login)
         AddPayment name cost ->
-          U.UpdatePayment (UP.AddPayment name cost)
+          decodeResponse
+            response
+            (\id -> U.UpdatePayment (UP.AddPayment id name cost))
         SignOut ->
           U.GoSignInView
     else
-- 
cgit v1.2.3