From 1e47a7754ca38bd1a6c74765d8378caf68ce4619 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 26 Mar 2017 21:10:42 +0200
Subject: Separate client and server watch

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

(limited to 'src/server/Model')

diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index 36b3ba0..79ccf39 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -127,6 +127,7 @@ data Key =
   | Empty
   | InvalidString
   | InvalidDate
+  | CostMustNotBeNull
   | InvalidInt
   | InvalidCategory
   | SmallerIntThan
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index 6565344..16fc3fd 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -498,6 +498,11 @@ m l InvalidDate =
     English -> "day/month/year required"
     French  -> "jour/mois/année requis"
 
+m l CostMustNotBeNull =
+  case l of
+    English -> "Cost must not be zero"
+    French -> "Le coût ne doît pas être nul"
+
 m l InvalidInt =
   case l of
     English -> "Integer required"
-- 
cgit v1.2.3