aboutsummaryrefslogtreecommitdiff
path: root/src/server/Model/Message
diff options
context:
space:
mode:
Diffstat (limited to 'src/server/Model/Message')
-rw-r--r--src/server/Model/Message/Key.hs10
-rw-r--r--src/server/Model/Message/Translations.hs24
2 files changed, 34 insertions, 0 deletions
diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index 50486be..9b5c69e 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -40,4 +40,14 @@ data Key =
| Date
+ -- Validation
+
+ | CategoryRequired
+ | CostRequired
+ | CostMustBeNumber
+
+ -- Payments
+
+ | Add
+
deriving (Enum, Bounded, Show)
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index d680e6e..5a626ed 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -160,3 +160,27 @@ m l Date =
case l of
English -> "{2} {1}, {3}"
French -> "{1} {2} {3}"
+
+-- Validation
+
+m l CategoryRequired =
+ case l of
+ English -> "The category is required."
+ French -> "La catégorie est requise."
+
+m l CostRequired =
+ case l of
+ English -> "The cost is required."
+ French -> "Le coût est requis."
+
+m l CostMustBeNumber =
+ case l of
+ English -> "The cost must be a number."
+ French -> "Le coût doit être un nombre."
+
+-- Payments
+
+m l Add =
+ case l of
+ English -> "Add"
+ French -> "Ajouter"