aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/client/elm/Dialog/AddIncome/Model.elm2
-rw-r--r--src/server/Model/Message/Key.hs2
-rw-r--r--src/server/Model/Message/Translations.hs10
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."