From a48e79e2f7c1ab1ffb52b86ef9e900c75c5d023b Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 12 Sep 2015 23:57:16 +0200
Subject: Adding UI income read-only

---
 src/server/Model/Message/Key.hs | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'src/server/Model/Message/Key.hs')

diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index 3d915b9..4076768 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -19,8 +19,7 @@ data Key =
   | SignInExpired
   | SignInInvalid
   | SignInMailTitle
-  | HiMail
-  | SignInLinkMail
+  | SignInMail
   | SignInEmailSent
 
   -- Dates
@@ -54,7 +53,13 @@ data Key =
   | MoneySymbol
   | Punctual
   | Monthly
+  | NoMonthlyPayment
   | SingularMonthlyCount
   | PluralMonthlyCount
 
+  -- Income
+
+  | Income
+  | NoIncome
+
   deriving (Enum, Bounded, Show)
-- 
cgit v1.2.3