diff options
| author | Joris Guyonvarch | 2015-08-13 22:55:41 +0200 |
|---|---|---|
| committer | Joris Guyonvarch | 2015-08-13 22:55:41 +0200 |
| commit | 359f837511597354bc6462cfc4200f54d647d728 (patch) | |
| tree | 13d896bd1280a735945609e890faa606abd135fa /src/client/ServerCommunication.elm | |
| parent | 35557ae09d10aa6388b79e2e19ee7702efb28bc6 (diff) | |
| download | budget-359f837511597354bc6462cfc4200f54d647d728.tar.gz budget-359f837511597354bc6462cfc4200f54d647d728.tar.bz2 budget-359f837511597354bc6462cfc4200f54d647d728.zip | |
Giving the payment id to the client
Diffstat (limited to 'src/client/ServerCommunication.elm')
| -rw-r--r-- | src/client/ServerCommunication.elm | 4 |
1 files changed, 3 insertions, 1 deletions
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 |