From 86a96decdb8892b10c5314eb916ef15a64204450 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 13 Nov 2016 00:49:32 +0100
Subject: Send weekly activity at start of week about previous week

---
 src/server/Model/Message.hs | 5 +++++
 1 file changed, 5 insertions(+)

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

diff --git a/src/server/Model/Message.hs b/src/server/Model/Message.hs
index 0e83e5b..026967f 100644
--- a/src/server/Model/Message.hs
+++ b/src/server/Model/Message.hs
@@ -2,6 +2,7 @@ module Model.Message
   ( getMessage
   , getParamMessage
   , getTranslations
+  , plural
   ) where
 
 import Data.Text (Text)
@@ -28,3 +29,7 @@ getTranslation translationKey =
   Translation
     (T.pack . show $ translationKey)
     (getParts $ getNonFormattedMessage lang translationKey)
+
+plural :: Int -> Key -> Key -> Text
+plural count singularKey pluralKey =
+  getParamMessage [T.pack . show $ count] (if count <= 1 then singularKey else pluralKey)
-- 
cgit v1.2.3