aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/Dialog
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/elm/Dialog')
-rw-r--r--src/client/elm/Dialog/AddIncome/View.elm10
-rw-r--r--src/client/elm/Dialog/AddPayment/View.elm10
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