From 38896af4281d2e191cbde15836a23e4c0274fff6 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 4 Jun 2016 11:02:43 +0200
Subject: Add mean payment by month

---
 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 7c48e71..4a49900 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -72,6 +72,7 @@ data Key =
   | Overall
   | ByMonths
   | By
+  | Mean
 
   -- Income
 
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index f593c49..3ceb7a3 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -277,6 +277,11 @@ m l By =
     English -> "by"
     French  -> "par"
 
+m l Mean =
+  case l of
+    English -> "Mean: {0}"
+    French  -> "En moyenne : {0}"
+
 -- Income
 
 m l CumulativeIncomesSince =
-- 
cgit v1.2.3