From 06ccc38b65f0f4da2046ac97de447cd1ad061425 Mon Sep 17 00:00:00 2001
From: Joris
Date: Fri, 8 Apr 2016 09:46:34 +0200
Subject: Add total payment partition

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

(limited to 'src/server/Model/Message')

diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index 43b8faa..6d48682 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -69,6 +69,7 @@ data Key =
   | Statistics
   | Overall
   | ByMonths
+  | By
 
   -- Income
 
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index d4e5454..e31d2df 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -262,6 +262,11 @@ m l ByMonths =
     English -> "By months"
     French  -> "Par mois"
 
+m l By =
+  case l of
+    English -> "by"
+    French  -> "par"
+
 -- Income
 
 m l CumulativeIncomesSince =
-- 
cgit v1.2.3