From 0cba27cba2b44756389d50bc113f23a2be87e978 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 3 Jan 2016 00:19:55 +0100
Subject: Prevent to send multiple payments if the server is not answering

---
 src/client/elm/Update/LoggedIn/AddPayment.elm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/client/elm/Update/LoggedIn/AddPayment.elm')

diff --git a/src/client/elm/Update/LoggedIn/AddPayment.elm b/src/client/elm/Update/LoggedIn/AddPayment.elm
index 978980d..3eb2ea4 100644
--- a/src/client/elm/Update/LoggedIn/AddPayment.elm
+++ b/src/client/elm/Update/LoggedIn/AddPayment.elm
@@ -22,3 +22,5 @@ updateAddPayment action addPayment =
       { addPayment
       | frequency = if addPayment.frequency == Punctual then Monthly else Punctual
       }
+    WaitingServer ->
+      { addPayment | waitingServer = True }
-- 
cgit v1.2.3