diff options
| -rw-r--r-- | src/client/elm/Dialog/AddIncome/Model.elm | 2 | ||||
| -rw-r--r-- | src/server/Model/Message/Key.hs | 2 | ||||
| -rw-r--r-- | src/server/Model/Message/Translations.hs | 10 |
3 files changed, 13 insertions, 1 deletions
diff --git a/src/client/elm/Dialog/AddIncome/Model.elm b/src/client/elm/Dialog/AddIncome/Model.elm index 664557e..0d52b22 100644 --- a/src/client/elm/Dialog/AddIncome/Model.elm +++ b/src/client/elm/Dialog/AddIncome/Model.elm @@ -34,7 +34,7 @@ initialAdd translations date = initialClone : Translations -> Date -> Income -> List (String, Field) initialClone translations date income = [ ("amount", Field.Text (toString income.amount)) - , ("date", Field.Text (Date.shortView (Date.fromTime income.time) translations)) + , ("date", Field.Text (Date.shortView date translations)) ] initialEdit : Translations -> IncomeId -> Income -> List (String, Field) diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs index 4ffc890..9126b61 100644 --- a/src/server/Model/Message/Key.hs +++ b/src/server/Model/Message/Key.hs @@ -98,6 +98,8 @@ data Key = | Income | MonthlyNetIncomes | AddIncome + | CloneIncome + | EditIncome | IncomeNotDeleted | IncomeDate | IncomeAmount diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs index 32b58fc..4b698d7 100644 --- a/src/server/Model/Message/Translations.hs +++ b/src/server/Model/Message/Translations.hs @@ -379,6 +379,16 @@ m l AddIncome = English -> "Add an income" French -> "Ajouter un revenu" +m l CloneIncome = + case l of + English -> "Clone an income" + French -> "Cloner un revenu" + +m l EditIncome = + case l of + English -> "Edit an income" + French -> "Modifier un revenu" + m l IncomeNotDeleted = case l of English -> "The income could not have been deleted." |