aboutsummaryrefslogtreecommitdiff
path: root/src/server/Model/Message
diff options
context:
space:
mode:
authorJoris2016-06-26 13:59:31 +0200
committerJoris2016-06-26 13:59:31 +0200
commit27bf42c165e5a9fa242e0679fca621f2a6dc4adb (patch)
tree5a528b3daefbf1fdd7f4418d8399b43a91ee1533 /src/server/Model/Message
parent0dc740d8f64b31ff49b7cfb51ddc2dde7b5c121e (diff)
Add missing AddIncome message
Diffstat (limited to 'src/server/Model/Message')
-rw-r--r--src/server/Model/Message/Key.hs1
-rw-r--r--src/server/Model/Message/Translations.hs5
2 files changed, 6 insertions, 0 deletions
diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index a88d2b8..84ff486 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -96,6 +96,7 @@ data Key =
| IncomeDate
| IncomeAmount
| ConfirmIncomeDelete
+ | Add
-- Form
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index 3b91d17..a29b84e 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -369,6 +369,11 @@ m l ConfirmIncomeDelete =
English -> "Are you sure to delete this income ?"
French -> "Voulez-vous vraiment supprimer ce revenu ?"
+m l Add =
+ case l of
+ English -> "Add"
+ French -> "Ajouter"
+
-- Form error
m l Empty =