From ee3027b53aad38178f4945c459a94489f4997507 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 4 Oct 2015 21:15:15 +0200
Subject: Do not authorize negative incomes

---
 src/server/Model/Message/Key.hs          | 1 +
 src/server/Model/Message/Translations.hs | 5 +++++
 2 files changed, 6 insertions(+)

(limited to 'src/server')

diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index bd2b567..c4ff738 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -47,6 +47,7 @@ data Key =
   | CostMustBeNonNullNumber
   | IncomeRequired
   | IncomeMustBeNonNullNumber
+  | IncomeMustBePositiveNumber
 
   -- Payments
 
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index f594833..f34cbd2 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -203,6 +203,11 @@ m l IncomeMustBeNonNullNumber =
     English -> "The income must be a non-null integer."
     French  -> "Le revenu doit être un entier non nul."
 
+m l IncomeMustBePositiveNumber =
+  case l of
+    English -> "The income must be a positive integer."
+    French  -> "Le revenu doit être un entier positif."
+
 -- Payments
 
 m l Add =
-- 
cgit v1.2.3