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/View/LoggedIn/AddPayment.elm | 2 ++
 src/client/elm/Model/View/SignInView.elm          | 4 ++--
 2 files changed, 4 insertions(+), 2 deletions(-)

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

diff --git a/src/client/elm/Model/View/LoggedIn/AddPayment.elm b/src/client/elm/Model/View/LoggedIn/AddPayment.elm
index fc4d3a0..3a14b00 100644
--- a/src/client/elm/Model/View/LoggedIn/AddPayment.elm
+++ b/src/client/elm/Model/View/LoggedIn/AddPayment.elm
@@ -18,6 +18,7 @@ type alias AddPayment =
   , cost : String
   , costError : Maybe String
   , frequency : PaymentFrequency
+  , waitingServer : Bool
   }
 
 initAddPayment : PaymentFrequency -> AddPayment
@@ -27,6 +28,7 @@ initAddPayment frequency =
   , cost = ""
   , costError = Nothing
   , frequency = frequency
+  , waitingServer = False
   }
 
 validateName : String -> Translations -> Result String String
diff --git a/src/client/elm/Model/View/SignInView.elm b/src/client/elm/Model/View/SignInView.elm
index cf7e6b2..a950867 100644
--- a/src/client/elm/Model/View/SignInView.elm
+++ b/src/client/elm/Model/View/SignInView.elm
@@ -4,12 +4,12 @@ module Model.View.SignInView
   ) where
 
 type alias SignInView =
-  { connecting : Bool
+  { waitingServer : Bool
   , error : Maybe String
   }
 
 initSignInView : SignInView
 initSignInView =
-  { connecting = False
+  { waitingServer = False
   , error = Nothing
   }
-- 
cgit v1.2.3