diff options
| author | Joris | 2016-01-03 00:19:55 +0100 |
|---|---|---|
| committer | Joris | 2016-01-03 00:28:41 +0100 |
| commit | 0cba27cba2b44756389d50bc113f23a2be87e978 (patch) | |
| tree | cc13e5ba32e3e2ec8bad284828a06d5daedec4f7 /src/client/elm/Model/View | |
| parent | fc9a3ca6a5226f78a3a0ec51af3d8d287ccb2e1b (diff) | |
Prevent to send multiple payments if the server is not answering
Diffstat (limited to 'src/client/elm/Model/View')
| -rw-r--r-- | src/client/elm/Model/View/LoggedIn/AddPayment.elm | 2 | ||||
| -rw-r--r-- | src/client/elm/Model/View/SignInView.elm | 4 |
2 files changed, 4 insertions, 2 deletions
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 } |