From 3a88115d118f8256f3ff034dc359df42a9e4051c Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 16 Apr 2016 21:35:50 +0200
Subject: Responsive header

---
 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 6d48682..32c7856 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -61,6 +61,7 @@ data Key =
   | Monthly
   | SingularMonthlyCount
   | PluralMonthlyCount
+  | PaymentsTitle
   | Payment
   | Payments
 
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index e31d2df..973b756 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -235,6 +235,11 @@ m l PluralMonthlyCount =
     English -> "{1} monthly payments totalling {2}"
     French  -> "{1} paiements mensuels comptabilisant {2}"
 
+m l PaymentsTitle =
+  case l of
+    English -> "Payments"
+    French -> "Paiements"
+
 m l Payment =
   case l of
     English -> "payment"
-- 
cgit v1.2.3