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