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/SignIn.elm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/client/elm/Update/SignIn.elm') diff --git a/src/client/elm/Update/SignIn.elm b/src/client/elm/Update/SignIn.elm index 5e8a9bb..94963c8 100644 --- a/src/client/elm/Update/SignIn.elm +++ b/src/client/elm/Update/SignIn.elm @@ -8,10 +8,10 @@ import Model.View.SignInView exposing (..) updateSignIn : SignInAction -> SignInView -> SignInView updateSignIn action signInView = case action of - Connecting -> - { signInView | connecting = True } + WaitingServer -> + { signInView | waitingServer = True } ErrorLogin message -> { signInView | error = Just message - , connecting = False + , waitingServer = False } -- cgit v1.2.3