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.hs2
-rw-r--r--src/server/Model/Message/Translations.hs12
2 files changed, 13 insertions, 1 deletions
diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index 79ccf39..efe8aaa 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -130,6 +130,8 @@ data Key =
| CostMustNotBeNull
| InvalidInt
| InvalidCategory
+ | InvalidColor
+ | AlreadyExists
| SmallerIntThan
| GreaterIntThan
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index 16fc3fd..90f509a 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -350,7 +350,7 @@ m l Color =
m l UsedCategory =
case l of
English -> "This category is currently being used"
- French -> "Cette catégorie est utilisée actuellement"
+ French -> "Cette catégorie est actuellement utilisée"
-- Statistics
@@ -513,6 +513,16 @@ m l InvalidCategory =
English -> "Invalid category"
French -> "Catégorie invalide"
+m l InvalidColor =
+ case l of
+ English -> "Invalid color"
+ French -> "Couleur invalide"
+
+m l AlreadyExists =
+ case l of
+ English -> "Dupplicate field"
+ French -> "Doublon"
+
m l SmallerIntThan =
case l of
English -> "Integer bigger than {1} or equal required"