diff options
author | Joris | 2016-11-13 00:49:32 +0100 |
---|---|---|
committer | Joris | 2016-11-13 00:49:32 +0100 |
commit | 86a96decdb8892b10c5314eb916ef15a64204450 (patch) | |
tree | 6f41742d0466f77948680964188144fbff036902 /src/server/Model/Message.hs | |
parent | bf6a0a0b32a7efb88f75c2e89b84d6907aeb10bc (diff) | |
download | budget-86a96decdb8892b10c5314eb916ef15a64204450.tar.gz budget-86a96decdb8892b10c5314eb916ef15a64204450.tar.bz2 budget-86a96decdb8892b10c5314eb916ef15a64204450.zip |
Send weekly activity at start of week about previous week
Diffstat (limited to 'src/server/Model/Message.hs')
-rw-r--r-- | src/server/Model/Message.hs | 5 |
1 files changed, 5 insertions, 0 deletions
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) |