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/AddPaymentAction.elm | 1 +
 src/client/elm/Model/Action/LoggedInAction.elm   | 3 ++-
 src/client/elm/Model/Action/SignInAction.elm     | 2 +-
 3 files changed, 4 insertions(+), 2 deletions(-)

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

diff --git a/src/client/elm/Model/Action/AddPaymentAction.elm b/src/client/elm/Model/Action/AddPaymentAction.elm
index 172f35f..a109a49 100644
--- a/src/client/elm/Model/Action/AddPaymentAction.elm
+++ b/src/client/elm/Model/Action/AddPaymentAction.elm
@@ -7,3 +7,4 @@ type AddPaymentAction =
   | UpdateCost String
   | AddError (Maybe String) (Maybe String)
   | ToggleFrequency
+  | WaitingServer
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
diff --git a/src/client/elm/Model/Action/SignInAction.elm b/src/client/elm/Model/Action/SignInAction.elm
index ed64c1d..eaa9f8b 100644
--- a/src/client/elm/Model/Action/SignInAction.elm
+++ b/src/client/elm/Model/Action/SignInAction.elm
@@ -3,5 +3,5 @@ module Model.Action.SignInAction
   ) where
 
 type SignInAction =
-  Connecting
+  WaitingServer
   | ErrorLogin String
-- 
cgit v1.2.3