diff options
| author | Joris | 2016-01-03 00:19:55 +0100 |
|---|---|---|
| committer | Joris | 2016-01-03 00:28:41 +0100 |
| commit | 0cba27cba2b44756389d50bc113f23a2be87e978 (patch) | |
| tree | cc13e5ba32e3e2ec8bad284828a06d5daedec4f7 /src/client/elm/ServerCommunication.elm | |
| parent | fc9a3ca6a5226f78a3a0ec51af3d8d287ccb2e1b (diff) | |
Prevent to send multiple payments if the server is not answering
Diffstat (limited to 'src/client/elm/ServerCommunication.elm')
| -rw-r--r-- | src/client/elm/ServerCommunication.elm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/client/elm/ServerCommunication.elm b/src/client/elm/ServerCommunication.elm index 53612d8..7c46d79 100644 --- a/src/client/elm/ServerCommunication.elm +++ b/src/client/elm/ServerCommunication.elm @@ -35,7 +35,7 @@ sendRequest communication = AddPayment name cost frequency -> post (addPaymentURL name cost frequency) |> flip Task.andThen (decodeHttpValue <| "id" := paymentIdDecoder) - |> Task.map (\paymentId -> (U.UpdateLoggedIn (UL.AddPayment paymentId name cost frequency))) + |> Task.map (\paymentId -> (U.UpdateLoggedIn (UL.ValidateAddPayment paymentId name cost frequency))) DeletePayment payment frequency -> post (deletePaymentURL payment.id) |