diff options
| author | Joris | 2015-09-06 15:54:38 +0200 |
|---|---|---|
| committer | Joris | 2015-09-06 15:54:38 +0200 |
| commit | 0ae7d068263dffbc1cc2dc92c7829dd0037c97e7 (patch) | |
| tree | c07d2a2fe22ac7b8a45e71d9bbcb5826922cbae8 /src/server/Model/Message.hs | |
| parent | e10531ba4e60c8709088798763ae3bae6608f9c9 (diff) | |
| download | budget-0ae7d068263dffbc1cc2dc92c7829dd0037c97e7.tar.gz budget-0ae7d068263dffbc1cc2dc92c7829dd0037c97e7.tar.bz2 budget-0ae7d068263dffbc1cc2dc92c7829dd0037c97e7.zip | |
The user can remove a monthly payment
Diffstat (limited to 'src/server/Model/Message.hs')
| -rw-r--r-- | src/server/Model/Message.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/server/Model/Message.hs b/src/server/Model/Message.hs index 12893b8..f647ce2 100644 --- a/src/server/Model/Message.hs +++ b/src/server/Model/Message.hs @@ -1,6 +1,6 @@ module Model.Message ( getMessage - , getVarMessage + , getParamMessage , getTranslations ) where @@ -16,10 +16,10 @@ import Model.Json.Translations import Model.Json.Translation getMessage :: Key -> Text -getMessage = getVarMessage [] +getMessage = getParamMessage [] -getVarMessage :: [Text] -> Key -> Text -getVarMessage values key = replaceParts values (getNonFormattedMessage lang key) +getParamMessage :: [Text] -> Key -> Text +getParamMessage values key = replaceParts values (getNonFormattedMessage lang key) getTranslations :: Translations getTranslations = Translations (map getTranslation [minBound..]) |