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/Action | |
parent | fc9a3ca6a5226f78a3a0ec51af3d8d287ccb2e1b (diff) | |
download | budget-0cba27cba2b44756389d50bc113f23a2be87e978.tar.gz budget-0cba27cba2b44756389d50bc113f23a2be87e978.tar.bz2 budget-0cba27cba2b44756389d50bc113f23a2be87e978.zip |
Prevent to send multiple payments if the server is not answering
Diffstat (limited to 'src/client/elm/Model/Action')
-rw-r--r-- | src/client/elm/Model/Action/AddPaymentAction.elm | 1 | ||||
-rw-r--r-- | src/client/elm/Model/Action/LoggedInAction.elm | 3 | ||||
-rw-r--r-- | src/client/elm/Model/Action/SignInAction.elm | 2 |
3 files changed, 4 insertions, 2 deletions
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 |