diff options
| author | Joris | 2016-08-21 14:30:40 +0200 |
|---|---|---|
| committer | Joris | 2016-08-21 14:30:40 +0200 |
| commit | 75804df1cb231033f94183e41cdf79d36d8f6710 (patch) | |
| tree | 48b7932285091fdbdaba6d77586859c1e1750ce0 /src/client/elm/Dialog | |
| parent | 3889d21ab58fbbc0134854b95013196a82e8d510 (diff) | |
| download | budget-75804df1cb231033f94183e41cdf79d36d8f6710.tar.gz budget-75804df1cb231033f94183e41cdf79d36d8f6710.tar.bz2 budget-75804df1cb231033f94183e41cdf79d36d8f6710.zip | |
Show a message if there is an error during a server request
Diffstat (limited to 'src/client/elm/Dialog')
| -rw-r--r-- | src/client/elm/Dialog/AddIncome/View.elm | 10 | ||||
| -rw-r--r-- | src/client/elm/Dialog/AddPayment/View.elm | 10 |
2 files changed, 10 insertions, 10 deletions
diff --git a/src/client/elm/Dialog/AddIncome/View.elm b/src/client/elm/Dialog/AddIncome/View.elm index cc1ac13..c628d37 100644 --- a/src/client/elm/Dialog/AddIncome/View.elm +++ b/src/client/elm/Dialog/AddIncome/View.elm @@ -35,11 +35,11 @@ button : String -> LoggedData -> List (String, Field) -> String -> Html Msg -> M button className loggedData initialForm title buttonContent tooltip = let dialogConfig = { className = "incomeDialog" - , title = getMessage title loggedData.translations + , title = getMessage loggedData.translations title , body = \model -> addIncomeForm loggedData model.addIncome - , confirm = getMessage "Confirm" loggedData.translations + , confirm = getMessage loggedData.translations "Confirm" , confirmMsg = submitForm << .addIncome - , undo = getMessage "Undo" loggedData.translations + , undo = getMessage loggedData.translations "Undo" } in Html.button ( ( case tooltip of @@ -68,8 +68,8 @@ submitForm addIncome = Just data -> case data.id of Just incomeId -> - Msg.Dialog <| Dialog.UpdateAndClose <| Msg.UpdateLoggedIn <| LoggedInMsg.EditIncome incomeId data.amount data.date + Msg.Dialog <| Dialog.UpdateAndClose <| Msg.EditIncome incomeId data.amount data.date Nothing -> - Msg.Dialog <| Dialog.UpdateAndClose <| Msg.UpdateLoggedIn <| LoggedInMsg.CreateIncome data.amount data.date + Msg.Dialog <| Dialog.UpdateAndClose <| Msg.CreateIncome data.amount data.date Nothing -> Msg.Dialog <| Dialog.Update <| DialogMsg.AddIncomeMsg <| Form.Submit diff --git a/src/client/elm/Dialog/AddPayment/View.elm b/src/client/elm/Dialog/AddPayment/View.elm index 3ffe200..df1ad3b 100644 --- a/src/client/elm/Dialog/AddPayment/View.elm +++ b/src/client/elm/Dialog/AddPayment/View.elm @@ -36,11 +36,11 @@ button : LoggedData -> List (String, Field) -> String -> Html Msg -> Maybe Strin button loggedData initialForm title buttonContent tooltip = let dialogConfig = { className = "paymentDialog" - , title = getMessage title loggedData.translations + , title = getMessage loggedData.translations title , body = \model -> addPaymentForm loggedData model.addPayment - , confirm = getMessage "Confirm" loggedData.translations + , confirm = getMessage loggedData.translations "Confirm" , confirmMsg = submitForm << .addPayment - , undo = getMessage "Undo" loggedData.translations + , undo = getMessage loggedData.translations "Undo" } in Html.button ( ( case tooltip of @@ -75,8 +75,8 @@ submitForm addPayment = Just data -> case data.id of Just paymentId -> - Msg.Dialog <| Dialog.UpdateAndClose <| Msg.UpdateLoggedIn <| LoggedInMsg.EditPayment paymentId data.name data.cost data.date data.frequency + Msg.Dialog <| Dialog.UpdateAndClose <| Msg.EditPayment paymentId data.name data.cost data.date data.frequency Nothing -> - Msg.Dialog <| Dialog.UpdateAndClose <| Msg.UpdateLoggedIn <| LoggedInMsg.CreatePayment data.name data.cost data.date data.frequency + Msg.Dialog <| Dialog.UpdateAndClose <| Msg.CreatePayment data.name data.cost data.date data.frequency Nothing -> Msg.Dialog <| Dialog.Update <| DialogMsg.AddPaymentMsg <| Form.Submit |