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/Model/Action/LoggedInAction.elm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/client/elm/Model/Action/LoggedInAction.elm')

diff --git a/src/client/elm/Model/Action/LoggedInAction.elm b/src/client/elm/Model/Action/LoggedInAction.elm
index aaf3c7f..18d2224 100644
--- a/src/client/elm/Model/Action/LoggedInAction.elm
+++ b/src/client/elm/Model/Action/LoggedInAction.elm
@@ -10,7 +10,8 @@ import Model.Action.AddPaymentAction exposing (AddPaymentAction)
 type LoggedInAction =
   UpdateAdd AddPaymentAction
   | UpdatePayments Payments
-  | AddPayment PaymentId String Int PaymentFrequency
+  | AddPayment String Int PaymentFrequency
+  | ValidateAddPayment PaymentId String Int PaymentFrequency
   | DeletePayment Payment PaymentFrequency
   | ToggleEdit PaymentId
   | UpdatePage Int
-- 
cgit v1.2.3